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Prólogo 


Cuando mi compañía, Mr Micro Ltd, consiguió un modelo experi¬ 
mental CPC464 de Amstrad para el desarrollo de programas, nos 
quedamos impresionados por sus características y resultados. Es¬ 
toy complacido de haber tenido la oportunidad de confeccionar 
además del software para la máquina, este libro de juegos para 
los usuarios, del que pueden aprender y disfrutar, dentro de un pro¬ 
grama general de desarrollo de software comercial. 

El Amstrad es un ordenador de grandes posibilidades y el «Lo- 
comotive Software Basic» opera a una gran velocidad. Esto ayuda 
a la hora de hacer programas que han de ser ejecutados a una cier¬ 
ta velocidad. 

El Basic, incluso esta versión rápida del Amstrad, no está con¬ 
siderado como el lenguaje ideal para programar juegos, debido a 
su velocidad de operación relativamente baja si se compara con 
un código máquina. Si bien esto puede valer aplicado a algunos 
programas de acción rápida, este libro está escrito para demostrar 
que el Basic, bien manejado, puede dar juegos divertidos, emocio¬ 
nantes y que requieren una mente ágil. 

Todos los programas no están plenamente escritos en Basic, al¬ 
gunos contienen rutinas en código máquina. Estas han sido inclui¬ 
das cuando era imprescindible para garantizar un juego de prime¬ 
ra calidad. Los contactos con el «duro» código máquina se han tra¬ 
tado de la manera menos dolorosa posible. 

Siempre me ha asombrado observar cómo se anuncia un juego 
como «100%» en código máquina, especialmente cuando resulta 
ser muy pobre. Algunos consideran esta característica como el 
equivalente en software a un hotel de «cinco estrellas», pero no 
lo es. 
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No es cierto que siempre el código máquina supere al Basic. 
Lo que importa es el juego, y si está en Basic o en código máquina 
es algo que no debería importar al usuario. 

Vale la pena comentar las opiniones de algunos respecto a los 
juegos. Se suele decir que los juegos son aplicaciones triviales de 
las posibilidades del micro y una pérdida de tiempo para el juga¬ 
dor. Conozco a muchos que no se atreven a admitir que juegan 
con el ordenador. Posiblemente se basen en que algo que se dis¬ 
fruta no puede ser bueno. 

El hecho es que teclear programas es un buen método para fa¬ 
miliarizarse con el ordenador y sus lenguajes. Un juego, además 
de proporcionar la satisfacción personal del trabajo terminado, 
hace que se utilicen más recursos del ordenador que con muchos 
programas de gestión. Esto quiere decir que programar juegos es 
el mejor método de aprender lenguajes de programación. 

Se juega desde que el hombre se civilizó. Gente eminente afir¬ 
ma que jugar es un factor vital en el desarrollo de la humanidad. 
Sólo un micro es capaz de generar, rápida y fácilmente, un gran 
número de estímulos. Por lo tanto ha de ser legítimo el uso de 
esta tecnología en beneficio de nuestro tiempo de ocio. 

Después de leer esto, espero que ya nos apoye en el tema del 
juego. Recuerde comentar las excelencias del juego cuando tenga 
oportunidad. A la gente que dice que jugar es una pérdida de tiem¬ 
po, se les puede contestar que por el mismo motivo puede serlo 
ver la televisión, leer una novela o dar un paseo. Todos tenemos 
necesidad de relajarnos y lo mejor es que cada cual lo haga a su 
manera. Para mí, la diversión consiste en diseñar y desarrollar pro¬ 
gramas que otros puedan disfrutar. Espero que usted disfrute con 
estos. 

Al preparar este libro me he preocupado especialmente de que 
se incluyera una gran variedad de juegos. También he dado gran 
importancia a los gráficos y presentación, de modo que realmente 
merezca la pena el esfuerzo de teclearlos. 

Este libro ha sido el resultado del esfuerzo de un trabajo en 
equipo, y ha exigido gran dedicación por parte de todos. Me com¬ 
place poder manifestar mi agradecimiento a los programadores de 
«ISSI» cuya pericia queda bien patente y a «Andy» que tiene aquí 
también buenos ejemplos de su trabajo. Los demás miembros cla¬ 
ve del equipo fueron Janet y mi esposa Val que mecanografiaron 
una y otra vez, hasta que el trabajo quedó completo. 
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Por último, quiero hacer constar mi agradecimiento a Ann Ber- 
ne y a Richard Miles de «Granada Publishing» por encargar el li¬ 
bro y llevarlo, a través de los complicados caminos de la edición, 
hasta sus manos. 

Jim Gregory 




Introducción 


Cada juego de este trabajo ha sido especialmente diseñado para 
este libro. Esto ha dado como resultado un conjunto de programas 
que comprenden una gran variedad de tipos. En ellos se incorpo¬ 
ran diversas técnicas muy útiles y varios comparten las mismas su¬ 
brutinas. En algunos casos se han diseñado rutinas de control, de 
tal modo que utilizando el método explicado en el capítulo de su¬ 
brutinas, se pueden ahorrar un montón de líneas al teclear el 
programa. 

Cada listado se ha hecho con una anchura de 40 caracteres, 
para procurar reducir el número de errores de entrada. Esto signi¬ 
fica que si por ejemplo se utiliza el Modo 1 para introducir los pro¬ 
gramas, a cada línea de la página le corresponde una línea en la 
pantalla. Esta característica es una muestra del esfuerzo que se 
ha desarrollado para asegurar el éxito del usuario con todos y cada 
uno de los programas. 

Después de un exahustivo proceso de prueba, los listados se 
han sacado de programas que verdaderamente funcionaban. To¬ 
dos han sido reproducidos directamente desde el papel de orde¬ 
nador. Esto significa que, normalmente, los errores se deberán a 
un fallo al teclear el programa por parte del lector. 

He tecleado muchos programas de libros y revistas, y sé, por 
experiencia, que en ciertos momentos es difícil creer que uno lo 
ha hecho mal. Por favor, lea detenidamente las siguientes instruc¬ 
ciones sobre cómo programar, le ayudarán a evitar los clásicos 
errores al teclear un programa. Siga el consejo y disfrutará más 
del hobby de programar, le resultará más entretenido y menos 
frustrante. 


A pesar de que estos consejos puedan parecer obvios, cada uno 
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de ellos ahorra un montón de tiempo y de problemas. Si está su¬ 
ficientemente preparado y relajado, cometerá pocos errores. 


Su primer programa 

1. Coloque su equipo sobre una mesa o tablero y asegúrese 
de que está correctamente sentado y con la espalda recta. Procú¬ 
rese una buena luz y coloque el libro de manera que se pueda leer 
con comodidad. 

2. Antes de empezar una larga sesión de tecleo compruebe si 
todo está correctamente conectado. 

3. Haga acopio de un buen número de cintas vírgenes. 

4. Prepare las cintas para grabar haciendo que avancen hasta 
que se vea la parte marrón. 

5. Para asegurarse de que todo va a funcionar bien consiga 
una cinta de larga duración (C 90) para trabajar. A continuación 
compruebe si carga y graba con este pequeño programa: 

10 REM TEST 

20 PRINT "TEST O.K." 

30 GOTO 10 

u otro similar. 

Grabe "TEST" con "SAVE" y luego cárguelo con "LOAD" y eje¬ 
cútelo con "RUN". Si funciona bien no rebobine y en caso contra¬ 
rio compruebe todo e inténtelo de nuevo hasta que sí funcione. 
Entonces ya podrá usar la cinta para almacenar su programa, bien 
cuando lo haya terminado, o a medio camino para proseguir más 
tarde. 

Le recomiendo que use la opción de "Speedwrite" y grabe el 
programa dos veces, será mejor que utilizar "Slow speed" y ade¬ 
más ha resultado bien durante el desarrollo de los programas del 
libro. 

6. Cuando grabe parte de un programa (versión) déle un título 
que le ayude más tarde (VI V2...). Quizá prefiera utilizar la fecha 
y hora de grabación (8,15-14/10/85). 

Cuando grabe una versión, recuerde escribir en la cinta el tí¬ 
tulo y el número del contador de la cinta donde ha sido almace- 
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nado. Esto le permitirá cargar el programa cuando desee, conti¬ 
nuar tecleándolo o bien empezar a depurar errores. 

7. Grabe siempre el programa antes de ejecutarlo. El mundo 
de los micros está lleno de amigos entusiastas que perdieron ho¬ 
ras de trabajo por ejecutar el programa antes de grabarlo. (Si va 
grabando las diferentes versiones, sólo podrá perder la última par¬ 
te en el peor de los casos.) 

Las razones de la «pérdida» pueden ser varias. Por ejemplo: te¬ 
clear mal palabras que el intérprete ejecuta como una nueva ins¬ 
trucción, "NEW", entrar en un bucle infinito del que la única sa¬ 
lida sea desenchufar el aparato... Los programas que contienen 
instrucciones en código máquina, comandos "POKE”, o llamadas 
del sistema "CALL" suelen perderse con más facilidad debido a un 
incorrecto tecleo de los argumentos de estos comandos. 

8. Cuando un programa se ha terminado y funciona, es con¬ 
veniente conservar una copia en una cinta de 90 minutos junto 
con otros programas. La copia original es mejor guardarla en una 
cinta de corta duración (C 15), correspondiendo más a la del pro¬ 
grama. Grabando uno por cada cara es mucho más fácil y rápido 
cargarlo en el ordenador cuando hace falta. Recuerde poner el tí¬ 
tulo del programa en la etiqueta. 

Este sistema de dos cintas le permitirá evitar volver a teclear 
si se pierde una, se daña, o se descubre en ella algún defecto. 

9. Muchos usuarios no cuidan debidamente el almacenamien¬ 
to de las cintas y luego se preguntan por qué se estropean. Si quie¬ 
re conservar lo que ha grabado siga las siguientes reglas: 

• Rotule claramente cajas y cintas. 

• Guárdelas en cajas en un estante. 

• Manténgalas lejos del calor. 

• Manténgalas alejadas de campos magnéticos, tales como TV, 
ordenadores, altavoces, motores, ventiladores y sobre todo te¬ 
léfonos; todo ello puede dañar o borrar los programas. 

• No las deje en la grabadora del ordenador cuando no se nece¬ 
siten y tenga la grabadora en STOP cuando no se precise lo 
contrario. 

• Recuerde quitar las lengüetas de plástico que hay en la parte 
posterior de la cinta para evitar que se vuelva a grabar encima. 
En el caso de que necesitara grabar en ella de nuevo, bastará 
con poner cinta adhesiva tapando los agujeros de las lengüetas. 

10. Nunca pase más de tres horas tecleando. Tómese un des¬ 
canso, pasee, dúchese, juegue a algo... 
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Otros problemas 


PARIS 
EN LA 

LA PRIMAVERA 

Lea estas líneas en voz alta. Se sorprenderá al ver cómo la mayo¬ 
ría de la gente lee «París en la primavera». Posiblemente incluso 
usted. La palabra «la» está repetida, pero como nadie se la espera 
y encima la frase es familiar, nuestra mente «no ve» el segundo 

«la». 


Algo parecido nos ocurre al teclear listados. Muchas veces se 
teclea lo que se espera que contenga el listado y no su verdadero 
contenido. Así, se teclean muchas «oes» por ceros, o S en vez de $. 

Un instante de desconcentración puede llevarnos a mezclar o 
saltarnos líneas. Por ejemplo: 

10 PRINT "Esto es el principio" 

20 PRINT "Esto es lo siguiente" 

"Se convierte en: 

10 PRINT "Esto es lo siguiente" 

Mire a la pantalla para comprobar que las letras con «Shift» 
(mayúsculas...) se han introducido correctamente. No hacerlo pro¬ 
voca errores del tipo: 

10 PRINT 2DONDE ESTAN LAS COMILLASI2 

Bajo ningún concepto debe intentar variar un programa al in¬ 
troducirlo. Si los números son 10, 20, 30,... introdúzcalos tal cual. 
Es mejor hacer los cambios cuando se sabe que el programa fun¬ 
ciona. Esto se aplica a todo. No se salte líneas porque crea que no 
sirven en el programa. De otro modo, el control del programa se 
puede ir a una línea que se ha cambiado o borrado y estropear el 
programa. 

Las sentencias "REM" son comentarios y se han incluido para 
ayudarle a entender el programa. Se deben introducir tal cual. Sólo 
cuando se ha hecho un programa que funciona y se graba quizá 
sería bueno hacer una copia sin los "REM". Le ahorrará una pe¬ 
queña parte de memoria al ordenador pero no tendrá más efecto 
que ése. En los programas de este libro no hay problema con omi- 
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tir los "REM" ya que se ha tenido cuidado de no mandar nunca el 
control del programa a una línea con un "REM", pero tenga cui¬ 
dado con programas tomados de otras fuentes porque hay autores 
que opinan que está bien mandar el control a una línea con un 
"REM". 

Los espacios son de vital importancia en una línea de progra¬ 
ma. Hay que tener cuidado de contarlos y meter exactamente los 
que existan. Le ayudará colocar una cartulina o papel arriba y aba¬ 
jo para contrastar cuántos blancos hay en su línea. 

En los listados hemos establecido una longitud de línea de 40 
caracteres, como el Modo 1 de la pantalla del ordenador. Si usa 
el Modo 1 al teclear, le ayudará a comparar las líneas con las del 
libro según las vaya introduciendo; por ejemplo: si una línea de lis¬ 
tado acaba con cuatro espacios, entonces, su línea en pantalla de¬ 
berá acabar igual. Tenga especial cuidado en no introducir como 
dos líneas, una sola. Esto puede ocurrirle en el caso de senten¬ 
cias que ocupen más de una línea y utilicen comandos con n. 9 de 
línea. 

No introduzca la segunda parte como otra línea. El programa 
no tendrá nada que ver. 

Puede ser útil tapar con una regla la línea siguiente a la que 
se está escribiendo. Esto reducirá el riesgo. 

Si sigue estos consejos no debe tener mayores problemas. De 
cualquier modo siempre «se colarán» algunos errores. Si su pro¬ 
grama no funciona correctamente, en el último capítulo tiene in¬ 
dicaciones interesantes de cómo depurarlo. 

Esto es suficiente de momento. Empecemos a practicar con al¬ 
gunas subrutinas útiles en el siguiente capítulo. 



Técnicas utilizadas 
en los programas 


Punteros de color (colores lógicos) 

El sistema de colocación de colores en el Amstrad puede ayudar 
a crear la sensación de movimiento rápido. Este sistema opera di¬ 
bujando cada elemento móvil de un dibujo por separado con pun¬ 
teros de color diferentes. Luego los punteros van cambiando con¬ 
trolados por el programa. 


Conforme se va cambiando cada color, el efecto es instantá¬ 
neo y da la impresión de movimiento. 


Muchos juegos de este libro utilizan este sistema. «El loco del 
laberinto» emplea con gran éxito esta técnica. El resultado es un 
laberinto continuamente cambiante. Esta velocidad no se podría 
haber conseguido sin un programa lleno de subrutinas en código 
máquina. 

La cinta de demostración del Amstrad tiene también buenos 
ejemplos. 

Esta técnica opera mejor en el Modo 0, ya que dispone de 16 
colores. Si es preciso mayor resolución y un movimiento más ajus¬ 
tado, hay que utilizar el Modo 1 con 4 colores. 


Recuerde que se debe reservar un color para el fondo y para 
cada mensaje que conste permanentemente en pantalla. 


Fíjese bien en la rutina de los dados para ver hasta qué punto 
puede rendir este sistema. 
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Disyuntiva exclusiva (XOR) 

Esta es otra técnica muy empleada a lo largo de este libro. La uti¬ 
lización de XOR permite superponer información sobre una ima¬ 
gen que ya está en pantalla. Al ejecutar un segundo XOR todo que¬ 
da como al principio. 

En los listados puede encontrar ejemplos. En especial fíjese en 
el «Duelo al Ajedrez». 

Puede encontrar de utilidad usar los listados como fuente de 
información para resolver sus problemas de programación. Bus¬ 
que el porqué de ciertas subrutinas y cómo funcionan. Una vez que 
un programa funciona correctamente y se ha grabado en una cin¬ 
ta, no viene mal experimentar. Cambie colores o parámetros y vea 
qué ocurre. Esto le ayudará a aprender programación y a incorpo¬ 
rar sus conocimientos a otros programas. 

Este es uno de los aspectos más gratificantes de tener un or¬ 
denador propio. 



Subrutinas 



A tajos hada el éxito 

Todos los listados de este libro ocupan alrededor de 200 K. Por 
ello, ha sido necesario minimizar la longitud de los programas. 

Esto se ha conseguido mediante el empleo constante de su¬ 
brutinas, y más concretamente tres: 

1. Puntuación máxima. Esta subrutina toma la puntuación ob¬ 
tenida por el jugador y compara con las que contiene en una ma¬ 
triz en memoria. Si su puntuación es mayor que la puntuación re¬ 
cord, entonces se le da la posibilidad de introducir su apodo, ini¬ 
ciales,... Esta rutina se debe teclear tal cual y a continuación se 
deberá encadenar con "MERGE" en los programas en que sea 
precisa. 

Se necesitarán algunos cambios para ciertos programas. Te¬ 
clee las líneas que varían en cada programa. 


Frontón Arco Iris: 26100 GOSUB 60000:GOTO 1000 
El loco de! laberinto: 33040 GOSUB 60000:GOTO 1000 
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Cotorras: 195 SC=PO*10 

Pick man: 200 GOSUB 60000:GOTO 1000 

La carta más alta y Skippy no necesitan cambio alguno. Todo 
reduce a cargarlas con MERGE en dichos programas. 

"PUNTUACION MAXIMA" 

¿0000 MQDE 1: BORDER OsPEN 2:CLS:re=0 
60060 PRINT:PRINT TAE<6): 

"PUNTUACIUNES MAX IMAS DE";qamí 
60070 PRINT:PRINT 
60080 FOR a=l TO 5 
60090 PRINT: PRINT TAB (4 

n ai< a):TAE(30 í;sco(a) 

601O0 NEXT a 

60110 FOR a~5 Tü 1 STEF' -1 

60120 IF se>sco(a) AND sc<sco(a-l) 

THEN re=a 
60130 NEXT a 

60140 IF re“O THEN 60430 
60150 FOR a=4 TO re STEP ~1: 

naí (a+1) ~naí <a) : seo <a+1) =sco (a) : 
NEXT a 

60160 naí <re)="":seo(re!=sc 
60170 CLS:PRINT:PRINT TAE< 6 > ; 

"PUNTUACIONES MAXIMAS DE ";gami 
60ISO PRINT:PRINT 
60190 FOR a~1 TO 5 

60200 PRINT:PRINT TAE <4>;a;" _ 

n aí (a) ; T AB (30) ;se o < a) 

60210 NEXT a 
60220 PRINT:PRINT 

" Ponga su nombre, por -favor" 

:n$="ABCDEFGHIJKLMNOPQRSTUVWXYZ - 3" 
60230 PRINT: PRIÑT TAE (5) ; n$::¡ =5 
60240 PRINT:PRINT " 3 ...Fin." 

60250 LOCATE x,19:PRINT"-" 

60260 LOCATE 10,22:PRINT naí(re) 

60270 GOSUB 29000 

602S0 IF 1e=l AND x>5 THEN 

LOCATE x,19:PRINT " ":x=x-1 
60290 IF ri = 1 AND x<33 THEN 

LOCATE x,19:PRINT ” ":x=x+1 
60300 IF fi = l AND MIDí(ní, (x-4),1)="3" 
THEN 60340 
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>0310 IF -f i =1 THEN 

naí !rei =na$ (re) +MIDI (ní, (:< —4> , 1) 


60320 

IF LENfnaí(re)>=15 

THEN 60340 

60330 

GOTO 60250 


60340 

MODE 1¡OLE 


60350 

F'RINT: F'RINT TAB (6) 

5 


"PUNTUACIONES MAXIMAS DE ";gam$ 

6 O •_'* cd U 

PRINT:PRINT 


60370 

FOF; a-1 TO 5 


60380 

PRINT:PRINT TAB(4) 

: TAB (30) ¡scoía) 

¡a;.";na$(a) 

60390 

NEXT a 


60400 

PRINT:PRINT 


it 

Pulse PIRE para 

jugar otra ves." 

60405 

a*--" " 


60410 

GOSUB 29000:IF í i= 

1 THEN 60420 

60 4 1 Id 

GOTO 60410 


60420 

RETURN 


60430 

IF sc<seo(1) THEN 

60340 

60440 

re=l:GOTO 60150 



2. Entrada de caracteres. Esta es una subrutina en código má¬ 
quina que permite rapidez en la utilización de «joysticks» o fleclas. 

Esta subrutina se introduce en memoria mediante una serie de 
sentencias "POKE" para evitar problemas que, de otra forma, po¬ 
drían ocurrir. 

Tecléela y grábela en la cinta. Cuando la necesite, cárguela 
con "MERGE" en su programa. Cada listado indica al final las su¬ 
brutinas que precisa. 


"ENTRADA DE CARACTERES" 


28980 



>> INKEY >>> > >>> >> >>> >> > >> 

29000 

1 e= 

; 0: r i 

=0: up=0: do=0: -f i =0: ex=0: a=0 

29010 

CALL addr+1:a=PEEK(addr) 

29020 

IF 

3 .'~& 

OF; a=24 2 THEN le=l 

29030 

IF 

a=9 

OR a=243 THEN ri=l 

29040 

IF 

3 . ” 1 1 

OF; a=240 THEN up = l 

29050 

IF 

a~ í 0 

OR a=241 THEN do=l 

29060 

IF 

a ~ S S 

OR a=224 THEN -fi = l 

29070 

IF 

a~13 

THEN p=l 
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29080 

29090 

29480 

29500 

29510 

29520 

29530 

29540 

29560 

29580 

29590 


IF a=32 THEN ex=l 
RETURN 

’ > > > > > > > > > >F'0KE INKEYS > > > > > > > > > > 

c = INT(addr/256):b=addr-256*c 

RESTORE 29580 

FOR n=addr TO addr+13 

READ a:IF a=999 THEN a=b 

IF a~99S THEN a=c 

F'OKE n, a 

NEXT n 

RETURN 

DATA O,¿2,O,50,999,998,205,27 
DATA 187,208,50,999,993,201 


3. Comprobación de caracteres. Esta es otra rutina en código 
máquina. Coloca el valor del código ASCII de un determinado ca¬ 
rácter en la variable CH. Se usa después de situar el cursor con 
un LOCATE x,y. Se le llama con GOSUB 30000. 

Permite al programa detectar el «choque» de dos objetos en 
pantalla o permite comprobar, por ejemplo, si la pelota del «Fron¬ 
tón arco iris» ha rebotado en la pared de ladrillo. Una vez grabada 
se carga con "MERGE" cuando sea necesaria. 


"COMPROBACION DE CARACTERES" 


.993O ? >>>>>>>>>char cneck >>>>>>>> > >> 

50000 CALL loca+1 
SOCIO ch-F'EEK (loca) 

50020 RETURN 

5O480 J >>>>>>>>>>poke check>>>>>>>>>>5 

50500 c=INT(loca/256):b=laca-256*c 

50510 RESTORE 305S0 

50520 FOR n=loca TO loca+13 

50530 READ a:IF a=999 THEN a=b 

50540 IF a=998 THEN a=c 

50550 POKE n,a 

50560 NEXT n 

50570 RETURN 

50580 DATA 0,62,244,50,999,993,205,96 
50590 DATA 187,208,50,999,998,201 
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Las subrutinas se usan ampliamente en otras páginas del li¬ 
bro. Aparecen listadas en los diferentes programas en que se pue¬ 
den emplear. 

Damas/Ajedrez. La subrutina "tablero" y otras pueden ser car¬ 
gadas con "MERGE". 

Juegos de dados. La subrutina de lanzamiento de dados y los 
otros tres juegos forman un solo programa con su menú para se¬ 
leccionar opciones. 

Juegos de cartas. La subrutina "generar baraja" puede cargar¬ 
se con "MERGE" en cada juego. 


Cómo utilizar "MERGE" 

Si quiere cargar subrutinas en un determinado programa: 

1. Grabe el programa contenido en el ordenador. 

2. Busque en la cinta la subrutina a cargar. 

3. Teclee MERGE"" y pulse "Enter". Luego en el panel del 
cassette pulse PLAY y siga las indicaciones. 

4. Cuando haya terminado, grabe el programa completo antes 
de ejecutarlo. 

5. El programa ya debe estar listo. 

En ocasiones puede preferir cargar la subrutina tal cual y lue¬ 
go introducir las líneas que desea cambiar. 

Una vez haya grabado las subrutinas en la cinta, debe probar¬ 
las en un programa que las utilice. Un buen programa para co¬ 
menzar es «Frontón arco iris» en la sección de juegos clásicos. 



1 

Marie Celeste 



Aventura en el mar 

En esta aventura, que vamos a vivir en el papel, nos encontramos 
atracados junto al legendario «Buque Fantasma». 

¿Cuál será el secreto del Marie Celeste? ¿Dónde está la tripu¬ 
lación? Dando órdenes el ordenador resolverá este misterio mari¬ 
no. Los datos del programa se han mezclado cuidadosamente en 
el listado del mismo para no aguarle la fiesta. Con esta operación 
se espera conseguir que no se acierten las soluciones de la sopa 
de letras por la forma y orden en que se teclearon. 

En un juego de aventuras, generalmente se propone Norte, Sur, 
Este y Oeste para moverse, sin embargo, en este caso, por tratar¬ 
se de un barco, usaremos proa, popa, babor y estribor. Por si al¬ 
guien no lo sabe, estos términos equivalen a la parte delantera, 
trasera, izquierda y derecha del barco (siempre mirando hacia 
delante). 

Una buena idea puede ser dibujar un mapa conforme se vaya 
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moviendo. El mapa le ayudará a saber por dónde va o a identificar 
zonas del barco por las que no ha pasado. 

Las instrucciones de dos palabras, tales como «Coger cubo» se 
aceptan. Las direcciones se pueden abreviar a: PR, PO, BA, ES. 

En los juegos de aventuras suele ser necesario teclear la pa¬ 
labra «INVENTARIO» para saber en cada momento qué es lo que 
uno lleva consigo. En este caso no es necesario, ya que el inven¬ 
tario está siempre en pantalla. 

Uno de los aspectos más entretenidos, aunque a veces sea frus¬ 
trante, de este juego, es probar a introducir diferentes verbos y ver 
si se produce algún efecto. Los verbos como obtener, coger, bajar, 
alzar, encaramarse y abrir, son frecuentes en estos juegos. Prue¬ 
be por ejemplo con "Examinar gato", en el momento preciso, a ver 
qué pasa. 

Una vez resuelto el enigma, invite a otros a jugar, merece la 
pena ver cómo los demás cometen los mismos errores y cómo qui¬ 
zá alcanzan el éxito igual que usted. 


1 

•* •:*’ •:*’ •:’* 

<<Ma 

¡ría Celesta 

2 

REM 



5 0 0 

GOTO 29 

000 


1000 

RESTORE 

120 

iO 

1010 

FOF: n = l 

TQ 

6 

1020 

FOR m=2 

TO 

40 

1030 

READ a: 

LOOP 

¡TE ¡n.n 

1040 

PRINT C 

HR$ < 

a) ; 

1050 

NEXT m 



1060 

NEXT n 



1100 

RETURN 




1200 DATA 158.154,158,154,156,32,32,32, 

‘ a -.- 1 -i— , 4 X , , wZ, w , .O jl ~ q O 1 ... , 4.1. , , 1 -.“i O , 

1 C '.4 1 «¡A -?<-> -m ~r-~> i cr; 4. T-~, -t-~. -t<-> -?«-> T "T 1 

J. W • » j. •—.•»—• rn ■- J— q — J— q •_ -J — q -u •— w q J— . q J— q VJ» ^ 4.. q J... q q J. 

4 ■' , 4.- 4 ...' .4- , ■—■ 4— , —‘ —■ , -4 1 4—. 

121O DATA 14?,32,149,32,149,32,32,32,32 




r? 1 4.0 -T - T, “> T'~ 1 40 TO T r J T O T O TO 1 cr 1 

4-. , “• •'.(•— 4— , ‘ 4— , 4— . X i .. , ■ 4— a • 4‘ 4— , 4_ N *_■ 4_. , ■_> 44. , a_ , I. .... 4- 

-| ir-/} -rr-, -t -r'n 

, X o -í a •_ 4_ , ---4_ a ■_ 4_ a -4- 

1220 DATA 149.32,149,32,149,32,150,154, 
156,32,158,154,156, 158,32,150, 154, .1.56,32 
,32,149,32,32,150,154,156,149,150,154,15 
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6.150.154.156.149.32.150.154.156.32 

1230 DATA 149,32,149,32,149,32,32,32,14 

9.32.149.32.32.149.32.151.154.153.32.32, 

149.32.32.151.154.153.149.151.154.153.14 

9.32.153.149.32.151.154.153.32 

1240 DATA 149,32,149,32,149,32,150,154, 

157.32.149.32.32.149.32.149.32.32.32.32, 

149.32.32.149.32.32.149.149.32.32.147.15 
4, 156,, 149,32,14.9.32,32,32 

1250 DATA 155.32,155,32, 155,32,147, 154, 

•i n:r r~ ■ r *i -i re t *-> ~r ^ -i ere ~y i n ~r i c i f t t •—*, t 

I JJ H -.Jo2 q .t UU q O.: q J-oJ q 1 UU q q H / , 1 xj 4 q 1 JO q OO q O 

2.147.154.153.147.154.153.155.147.154.15 
3,147,154,153,147,153,147,154,153 

1500 RETURN 

19980 ’>>>>>>>>>pantalla<<<<<<<<<<<<<< 

20000 INK 0,3:1 NK 1,20:INK 2,0:1NK 3,24 
20010 N0DE 1 

20020 BDRDER 0:PAPER 2:PEN 3:CLS 
20030 WIND0W #1,1,30,9,16 
20040 WIND0W #2,1,30,17,25 
20050 WIND0W #3,31,40,9,25 
20060 PAPER #1,0:PEN #1,1:CLS #1 
20070 PAPER #2,2:PEN #2,3:CL9 #2 
20080 PAPER #3,3:PEN #3,0sCLS #3 
20100 RETURN 

20980 ’<<<<<<<<inicialízacion>>>>>>>>>> 
2.1000 DIN d (10,7) 

21010 DIM oí(11) 

21020 DIN m(10,4) 

2.1030 DIN o(ll) 

21100 RESTORE 21200 
21110 FOR n-1 TO 10 

21120 READ d(n,1),d(n,2),d(n,3),d(n,4) 
21125 READ d (n,5),d(n,6),d(n,7) 

21130 READ m(n,1),m(n,2),m(n,3),m(n,4) 

21140 NEXT n 

21150 FOR n=l TO 11 

21160 READ oí ín),o(n) 

21170 NEXT n 
21180 RETURN 



i 

200 

DATA 

1 

, 8, 

10 

, 1 

•* 

A q *- 

0, 

0,0 


i 

205 

DATA 

0 

, 0, 

0, 

0 




,~y 

i 

210 

DATA 

1 

D "T 

Jl- q 

6, 

f-yrr 

, Oq 

0, 

0,0 

2 

i 

215 

DATA 

1 

, 1, 

0, 

0 




2 

i 

220 

DATA 

1 

3, 1 

6, 

1 , 

9Q 

•• q 

4, 

30, 
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21225 DATA 1,0, 1,0 

21230 DATA 3,13,14,23,O,O,O 

21235 DATA O,1,1,0 

21240 DATA 1, 18,33,30,3,O,O 

21245 DATA O,1,0,0 

21250 DATA 1,8.9,11,20,O,O 

21255 DATA O,O.O,O 

21260 DATA 2,30,20,13,15,22,16 

21265 DATA 1,0,1,1 

21270 DATA 5,3O,20,O,O,O,O 

21275 DAT A O,O, 1,O 

21280 DATA 1,8,34,29,5,0,0 

21235 DATA 1,0,0, 1 

21290 DATA 33,3,27,1,17,0, O 

21295 DATA 0,0,1,0 

21300 DATA CUCHILLO,6 

21310 DATA LONA,1 

21320 DATA AGUA EN CUBIERTA, 2 

21330 DATA CUERDA, 6 

21340 DATA CARTEL, 3 

21350 DATA CUBO,4 

21360 DATA LLAVE,O 

21370 DATA GATO,9 

21380 DATA TRAPO,5 

21390 DATA BOTAS DE AGUA,5 

21400 DATA GANCHOS,O 

21930 ’ <<<<<<<<<<<<entrada>>>>>>>> >>> 

22000 mí ="":PRINT #2:RRINT #2,">"; 

22010 aí= INKEYf s aí=UPPERi (ai) 

22020 IF <af<"A" OR a*í"Z"> AND a«<>" " 
AND aí<>CHRi(13) AND af<>CHRÍ(127) 
THEN GOTO 22010 
22030 SOUND 1,150,2,15 
22035 IF aí=CHRÍ(127) AND THEN 

GOTO 22010 

22040 IF a$=CHRÍ(127) THEN 

mí—LEFTi(mí,LEN(mí)-1); 

PRI NT #2, CHRí (8) ; 11 " ; CHRÍ (3) ; : 

GOTO 22010 

22050 IF aí=CHRí(13) THEN 

PRINT #2,CHRÍ(13):RETURN 
22060 mí-mí+aí 
22070 PRINT #2,ai; 

22030 GOTO 22010 

2293O ? < <<<< << <<in v entari o>> > > > > > >>> > > 
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23000 CLS #3 

23010 PRINT #3,"INVENTAR10"; 

23020 F'RINT #3, "-" 

23030 PRINT #3: F'RINT #3 
23040 FOR n=l TD 11 

23050 IF o(n)=13 THEN F'RINT #3,o$(n) 
23060 NEXT n 
23070 RETURN 

23980 ’<< <<<<<<< << <<sp 1 i t>>>> >> >> > > >> > 

24000 v$="":n$="" 

24010 FOF: n = 1 TD LEN (mí ) 

24020 IF MID$<m$,n,1)= " " THEN 
GOTO 24060 
24030 NEXT n 
24040 

24050 RETURN 

24060 v*=LEFT*(m$, n-1) 

24070 N$=F:IGHT$ (m$, LEN (m$) -n) 

24080 RETURN 

2498O ’<<<<<<<<<<<<<comandos>>>>>>>>>> 
25000 GOSUE: 22000 
25010 GOSUE 24000 


25020 

C$= 

: LEF"T$ (v$ 

,2) 



25030 

IF 

Cí■== 

"BA” 

THEN 

GOSUE 

30000 

25040 

IF 

C$= 

"ES" 

THEN 

GOSUE 

31000 

25050 

IF 

C$= 

" PR" 

THEN 

GOSUE 

32000 

25060 

IF 

C$= 

"F'O" 

THEN 

GOSUE 

33000 

25080 

IF 

C$= 

"EN" 

OR C$ 

i="IR" 

THEN 


GOSUE 35000 

25090 IF C$="EX" OR C$="MI" OR C$="IN" 
THEN GOSUE 36000 

25100 IF C$~"AB" THEN GOSUE 37000 
25120 IF C«="SU" THEN GOSUE 39000 
25130 IF C$ = "MA" QF: C$ = , 'AS" THEN 
GOSUE 40000 

25140 IF Cf="LO" THEN GOSUE 40500 
25150 IF C$="FU" OR C$="BE" OR C$="EM" 
THEN GOSUE 41000 
25160 C*=LEFT$<V$,3> 

25170 IF C*="FRE" OR C$="LIM" THEN 
GOSUE 42000 

25180 IF Cf="MOV" OR C$="ALZ" THEN 
GOSLJB 43000 

25185 IF C$="COR" THEN GOSUE 38000 
25187 IF C$“"COG" THEN GOSUE 34000 
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25190 IF V*="FIN" THEN GOSIJB 44000 
25200 IF ví-"-" THEN GOTO 25220 
25210 F'RINT #2, "No entiendo. . . " 

25220 GOSLJB 28000 s GOSUB 23000 
25230 GOTO 25000 

259SO ’<<<<<<<<<<comienzo>>>>>>>>>>>> 

26000 GOSUB 27000 
26010 GOSUB 20000 
2 6 015 G O S U B .10 O O 
26020 GOSUB 21000 
26030 GOSUB 23000 
26040 dq~6 

26.100 RETURN 

27000 DIM w$(36) 

27010 RESTORE 27060 
27020 FOR n = l TO 36 
27030 READ w $ (n) 

27040 NEXT n 
27050 RETURN 

27060 DATA ESTOY.POPA,PROA,BABOR.ESTRIBO 
R,ARRIBA,ABAJO,EN UN,PEQUEÑO.GRAN 
27070 DATA "BOTE, AL LADO DE EL",HAY,EL 
VIENTO,AULLA,ULULA 

27080 DATA SUENA COMO RISA.,FUERA,DENTRO 
,ES, MARIA CELESTE 

27090 DAT A UN,Y,AQUI.,Y YO,ME DESLIZO,A 
TRAVES,CERRADOS.ABIERTOS,HACIA,DE,ES,YO 
VEO ,ALMACENES 

27.100 DATA BOQUETE, EL, AGUA EN CUBIERTA, D 
IABLO, TRIANGULO DE LAS BERMUDAS, ATI.ANTIS 

27980 ? <<<<<<<<<<<describir>>>>>>>>>>>> 

28000 CLS #1 

28005 IF po=2 AND o <10)013 THEN 

PRINT #2,"Te des1 i z as h aci a 1 a sig 
ui ente" : F’RINT #2, "sección de cubierta !" 

: p o=3: SO UNE; 2,300, 10, 15 
28007 IF pc=l AND o(2)=0 THEN GOTO 45000 
23010 FOR n=l TO 7 
28020 PRINT #1,w$(d(po,n >);" "; 

28030 NEXT n 
28040 F'RINT #1 
28050 F'RINT #1 

28060 F'RINT #1, " Puedo ver —" 
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23070 FOR n = l TO 11 

2S0S0 IF o <n ) =po THEN PF: I NT # 1., oí (n ) : " , " 

5 

28090 NEXT n 
28100 RETURN 

28980 '< < << < < < <<<comien z o juega>> >> > >> 
29000 G0SUB 26000 
29010 GOSUB 28000 
29020 GOTO 25000 

29980 ’< <<<<<<<<<<comandas> > > > >>>>> >>> > 

30000 v í = 111 ' 

30010 IF m( do, 4)< >0 THEN GOTO 30020 
30015 PF:INT #2, "No puedes ir por ahi.": 
RETURN 

30020 IF m < p o, 4) = 1 THEN pc=po-5:RETURN 
30030 a=m(po, 4) :a=a—1sIF o(a> =13 THEN 
F’RINT #2, "Usas " ; oí (a) : 

F'RINT #2, "v vas hacia babor." 

ELSE GOTO 30015 
30040 FOR n=l TO 3000:NEXT n 
30050 d o=p o—5: R E T U R N 
31000 v 

31010 IF m(po,2)<;0 THEN GOTO 31020 
31015 F'RINT #2, "Me puedes ir por ahi.": 
RETURN 

31020 IF m(po,2)=1 THEN po=po+5:RETURN 
31030 a=m (po, 2) : a=a-1: IF o (a) =13 THEN 
F'F: I NT #2, "Usas " ; o$ (a) : 

PF:INT #2, "v vas hacia estribor." 

ELSE GOTO 31015 
31040 FOR n=i TO 3000:NEXT n 
31050 o o=p o+5:RETURN 
32000 vf 

32010 IF m (po, 1)00 THEN GOTO 32020 
32015 F'RINT #2, "No puedes ir por ahi.": 
RETURN 

32020 IF m<po, 1)=1 THEN po=po+i:RETURN 
32030 a=m(pc.1):a=a-l:IF o(a)=13 THEN 
F'RINT #2, "Usas " ; o$ (a) : 

F'F;INT #2, "y vas hacia proa." 

ELSE GOTO 32015 
32040 FOR n=i TO 3000:NEXT n 
32050 po=po+l:RETURN 
33000 v$•="•"'•" 

33010 IF m(po,3)< >0 THEN GOTO 33020 
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PRINT #2,"no puedes ir por ahí." 
RETURN 

IF m(po,3)=l THEN po=po-l:RETURN 
a=m(po,3):a=a-l:IF oía)=13 THEN 
PRINT #2,"Usas ";o$<a>: 

PRINT #2,"y vas hacia popa." 

ELSE BOTO 33015 
FOR n=l TO 3000:NEXT n 
po=po--l: RETURN 
vT 

FOR n=l TO 10 

IF n$=o$(n) THEN GOTO 34060 
NEXT n 

PRINT #2."No seas tonto !" 

RETURN 

IF n=4 THEN PRINT #2,"Esta atada 
emasiado -fuerte para mi RETURN 
34070 o(n)=13 

34080 F’R INT #2. "Coges el /1 a " ; o$ (n ) 
34090 RETURN 
35000 v$= "-•••" 

35010 IF n$< >"ALMACEN" AND 
N$< >"ALMACENES" THEN 
PRINT #2,"No puedes ir ahi...": 
RETURN 

35020 IF m(10,4)=0 THEN 

PRINT #2."Esta cerrado !":RETURN 
35030 po=5:RETURN 
36000 v$ 

36010 FOR N=1 TO 11 

36020 IF ní=o$ín) THEN GOTO 36060 

36030 NEXT n 

36040 PRINT #2,"No veo eso aqui." 

36050 RETURN 

36060 IF n=i THEN PRINT #2,"Es afilado 

II 

36070 IF n=2 THEN 

PRINT #2,"Es verde !" 

36080 IF n=3 THEN 

PRINT #2,"Es húmeda v salada !" 
36090 IF n=4 THEN PRINT #2, 

"Esta atada fuertemente !" 

36100 IF n=5 THEN PRINT #2,"Dice 
PRINT #2, 

"’No hay necesidad de ir debajo" 


33020 

33030 


33040 

33050 

34000 

34010 

34020 

34030 

34040 

34050 

34060 
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PRINT #2,"de las cubiertas en este 
juego. •’ " 

36110 IF n=6 AND o Í7) =0 THEN 

F'RINT #2, "Hace ruido i " : o (7) =po 
36120 IF n=6 AND o (7) 00 THEN 
F'RINT #2, "Esta vacio I" 

36130 IF n“7 THEN 

F'RINT #2, "Dice ’ ALMACEN'" 

36140 IF n=8 THEN F'RINT #2, 

"Se escapa con una rata muerta.": 
o(8)=0 

36150 IF n=9 THEN 

F'RINT #2, "Esta empapado ! " 

36160 IF n = 10 THEN F'RINT #2, "Apestan !" 
36170 IF N“ 11 THEN F'RINT #2, 

"Parecen ser para una cuerda !" 

36ISO RETURN 
37000 

37010 IF poOlO THEN 

F'RINT #2, "No puedo. RETIJRN 
37020 IF o(7)<>13 THEN 

PRINT #2, "No tengo liave ! " : F:ETURN 

37030 m(po,4)~1: 

F'RINT #2, "El almacén esta abierto." 

37040 d(10,3)™28:RETURN 
38000 v$~""s IF o (1) < > 13 THEN 

F'RINT #2, "Con que ?": RETURN 
38010 IF n$=o$<4) THEN GOTO 38040 
38020 F'RINT #2, "Sádico í" 

38030 RETURN 

38040 F'RINT #2, "Cortas la cuerda y la co 
ges. " 

38050 o(4)=13 
38060 RETURN 

39000 v$= "" : IF n*< >o$ (4) THEN v$=" BI"; 
RETURN 

39010 IF o(4)< >po AND o(4)< >13 THEN 

F'RINT #2, "Donde esta 1 a escalera?" 
:RETURN 

39020 F'RINT #2, "Subes por la escalera de 
cuerda." 

39030 IF po=6 THEN po=7:o(4)=7:RETURN 
39040 IF po=7 THEN po=6so(4)=6:RETURN 
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39050 IF po=l THEN po=2:o <45 =2:RETURN 
39060 RETURN 

40000 PEINT #2,"Un albatros vuela hacia 
ti " 

40010 F'RINT 42, "y te ataca por " 

40020 F'RINT #2, "ser destructivo. " 

40030 F'RINT #2, " Estas muerto ! " 

40040 F0F; n = l TG 5000 
40050 NEXT n 
40060 SGUND 1,350,10,15 
40070 GDTO 44000 
40500 V? 

40510 F'RINT #2: F'RINT #2, "LAS SALIDAS SON 

. " 

5 

40520 IF M (F'0. 1) < >0 THEN 
F'RINT #2, "PROA "; 

40530 IF M (F'0, 3) < >0 THEN 
F'RINT #2, "POPA 
40540 IF M(P0,2)<>0 THEN 
F'RINT #2, "ESTRIBOR 
40550 IF M (F'0, 4) < >0 THEN 
F'RINT #2. "BABOR. " 

40560 IF m(po,l)=0 AND m(po,2)=0 AND 
m(po,3)=0 AND m(po,4)=0 THEN 
F'RINT 42, "NINGUNA. " 

40570 F'RINT #2 
40580 RETURN 
41000 v 

41010 F'RINT 42," Ahora no,marinero !" 
41050 RETURN 
42000 v 

42010 IF o(6)< >13 OR o(9)<>13 THEN 

F'RINT #2, "Con que, 1 oco. RETURN 
42020 IF po< >2 THEN F'RINT #2, "Aqui no, id 
iota..":RETURN 

42030 o (3) =0: F’RINT #2, "Bien hecho! Ahora 
est a 1 impi o!.";m(2,3)=5 
42040 d (2, 1) =1: d (2, 2) =2: d (2,3) =20: 

d (2,4) =32: d (2,5) =21: d (2,6) =11: 
d(2,7)=0 

42050 o(11)=2:RETURN 
43000 v'' 

43010 FOR n=1 TO 10 

43020 IF n$=Q$(n) THEN GOTO 43060 

43030 NEXT n 
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43040 F'RINT #2, "Mover que 0 ! ? " 

43050 RETURN 

43060 F'RINT #2, "Lo mueves y el" 

43070 F'RINT #2, "viento se lo lleva ! " 

43080 o(n)=0 

43090 RETURN 

44000 CLS #3:CLS #2 

44010 F'RINT #2, "Otra iuaada ?" 

44020 GQSUB 22000 

44030 IF m$="SI" THEN RUN 

44040 F'RINT #2, "De todas maneras estas -¡ 
nejando I " 

44050 F0F: n = l Tü 2500 
44060 NEXT n 
44070 RUN 
45000 CLS #1 

45010 F'RINT #1, "SORPRESA !": 

F'F : ;INT #1, "Estamos escondidas en "; 
w $( 21);" ";(11);" ";w*(20) 

45020 F'RINT #1, "Creíamos que NUNCA" 

45030 F'RINT #1, "resolverías la aventura 

I »l 

45030 F'RINT #1, "resolveras la aventura ! 

II 


45040 GOTO 44000 



2 

Por favor, profesor 



Un reto para cualquiera 

Este programa no es exactamente lo que parece. Uno puede con¬ 
siderarse capaz de encontrar su secreto al teclearlo, pero usted se¬ 
guirá considerándo el juego como un reto cuando lo juegue. 

La idea es que el «profesor» de la pantalla elige un tema y us¬ 
ted ha de dar ejemplos que se ajusten a él. Por tanto, si se trata 
de «Películas», podrá introducir "Por favor, profesor es SUPER¬ 
ITAN una película?" y el profesor le dirá "sí" o "no". Una vez haya 
decidido cuál es la respuesta, podrá introducir otro ejemplo, como 
"Guerra de las galaxias", y probar suerte de nuevo. El juego con¬ 
tinuará hasta obtener tres respuestas afirmativas en una línea. 
Para entonces usted habrá dado con el por qué del sí o el no, y 
desde luego que puede hacer trampas, pero así su victoria sólo lo 
será a medias. 

Cuando más adelante ya sea un experto en el manejo del pro¬ 
grama puede intentar cambiar las reglas o añadir nuevos temas, 
y entonces sí que se estará enfrentando con un reto. 





Por favor, profesor 25 


Invite a un amigo a listar el programa, tal vez aquel se sor¬ 
prenda ante la ausencia de datos, que usted mismo puede dar, 
pero también puede usted ofrecerle el siguiente test de cre¬ 
dibilidad: 

«El programa utiliza un avanzado sistema de empaquetar ca¬ 
racteres basado en las características matemáticas de las pa¬ 
labras, de ahí que una cuidadosa selección de parámetros 
permita manejar soluciones concretas mediante unas subru¬ 
tinas aparentemente imprecisas». 

Por supuesto usted sabrá, por haber tecleado el programa que 
verifica las entradas, diferenciar ¿por qué es una respuesta válida 
al tema "Pájaros": flamenco, guacamayo, oca? 


1 ’ > > > > > > > p o r -favor, profesor > > > > > > > 

500 SYMBOL 240,128,64,32,24,6,15,112,128 

1000 GOSÜB 40500 

1050 go-0 

1100 GOSUB 20000 

1150 GOSUB 22000 

1160 GOTO 24000 

1998O J <<<<<<<<<pantalla>>>>>>>>>>>>> > 

20000 MODE O 

20010 PAPER O: F'EN 1: BOEDER 6:CLS 
20020 WINDOW #1,13,19,2,9 
20030 WINDOW #2,13,19,11,14 
20040 WINDOW #3,13,19,16,22 
20050 WINDOW #4,2,11,14,23 
20055 WINDOW #5,2,11,21,22 
20060 RESTORE 20000 
20070 FOR n=0 TO 15 
20080 READ a:INK n,a 
20090 NEXT n 

20100 PAPER #1,3:PEN #1,4:CLS #1 
20110 PAPER #2,2:PEN #2,3:CLS #2 
20120 PAPER #3,8:PEN #3,1:CLS #3 
20130 PAPER #4,9:PEN #4,4:CLS #4 
20140 PAPER #5,9:PEN #5,4:CLS #5 
20150 LOCATE 6,12:PRINT CHR$(240) 

20160 PLOT 156,208:DRAW 40,208: 

DRAW 24,230 

20170 DRAW 24,350:DRAW 40,372: 

DRAW 140,372 
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0180 DRAW 156,350:DRAW 156,225 
0190 F'LDT 35,350,13: DRAW 35,290: 

F'LÜT 65,350: DRAW 65,230 
20200 PLOT 107,350:DRAW 77,350: 

DRAW 77,230:DRAW 107,230 
20210 F'LDT 150,350,14: DRAW 120, 350: 

DRAW 120,290:DRAW 150,290 
20220 DRAW 150,230:DRAW 120,230: 

F'LÜT 39,230: DRAW 61,230 
20230 F'LDT 39,290: DRAW 61,290: 

F'LDT 77, 290: DRAW 107,290 
20240 F'LÜT 107,350,15: DRAW 107,230 
20250 F'LDT 135, 348: DRAW 135,255: 

F'LDT 135,240: DRAW 135.232 
20260 PLOT 35,232:DRAW 35,288: 

F'LDT 39,348: DRAW 63,232 
20270 PLOT 135,290,13 

20280 F'EN 9: LOCATE 1,23:PRINT CHR*(241> 
20290 F'EN 1 

20300 LOCATE #1,1,3: F'RINT # 1, " DI ME. . . " 
20310 LOCATE #2,2, 1: F'RINT #2, "TOTAL" 
20320 LOCATE #3, 2,2: F'RINT #3, "JUEGOS" 
20330 LOCATE #3,3,4: F'RINT #3,go 
20340 LOCATE #4,1,2: 



F'R I NT 

#4, 

l! F'OF: 

FAVOR, MAESTRO 


F'RINT 

# 4, 

"ES. 




20350 

F’LDT 

"7 Q O 
•*— * •- * 

210 




20360 

DRAW 

“\-7cr 

ai. / W* q 

250: 

DRAW 

nncr 
¿Uü 5 

260 

20370 

D F; A W 

290, 

310: 

DRAW 

285, 

320 

20380 

DRAW 

¿i ir* O q 

340: 

DRAW 

230, 

-T-rcr 

. J. 

20390 

D R A W 

-L. ti 

320: 

DRAW 

220 , 

310 

20400 

DRAW 

230, 

305: 

DRAW 

220 , 

300 

20410 

DRAW 

215, 

280: 

DRAW 

220 , 

*“> O -”7 

20420 

DRAW 

216, 

'T. -7 cr . 

DRAW 

230, 

270 

20430 

DRAW 

216, 

n . 

■Wt., --J o 

DRAW 

220 , 

260 

20440 

DRAW 

216, 

256: 

DRAW 

216, 

250 

20450 

DRAW 

220 , 

246: 

DRAW 

260, 

248 

20460 

PLOT 

240, 

246: 

DRAW 

230, 

210 

20470 

* 

ÜJ 
<E 
i— 

7: MC 

¡VE 220,3 

12 


20474 

F'R I NT 

' #7, 

CHR* 

¡ (240 

i ■ 

' i 


20475 

NOVE 

250, 

7505 




20478 

F'RINT 

■ #7, 

ii -“7 ii „ 

i 

:TAGOFF 


20480 

F'LÜT 

"7 ~y nr 

308: 

DRAW 

r>r?o 

■*— ■*— >t 

300 

20485 

GÜSUE 

¡ 21500 




204 90 

RETUF 

;N 
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20500 DATA 6,24,2,13,1,0,15,16 
20510 DATA 4,21,9,17,7,6,6,6 
209SO REM 

20990 ? < <<<<<< << << sI> > > > > > >> > >> > > > 

21000 INK 13,24:1NK 14,24:1NK 15,6 

21010 FÜR n=500 TQ 100 STEP -200 

21020 SOUND 2,n,50,12 

21030 NEXT n 

21050 w.in=win+l 

21200 RETURN 

2.1480 REM 

21 490 •' < < < <<<< <<<<<NO>>>>> > >> >> >>>>> 

21500 INK 13,24:INK 14,6:INK 15,24 
21510 FOR n=200 TO 600 STEP 200 
21520 SOUND 2,n,50,12,0,0,1 
21530 NEXT n 
21550 win-0 
21700 RETURN 

21980 ' <<<<<<<PRINCIPIO JUEGO>>>>>>> 
22000 win=0:go-go+1 
22010 5=1 NT(RND<1)*20> +1 
22020 LOCATE #1,1,5sPRINT #1 ,sÍ<b> 
22030 LOCATE #2,3,3:PRINT #2,tr 
22040 a=t(s,1):b=t(s,2):c=t<5,3) 
22050 DEF FN ok=ASC<LEFTf(a$,1)) 
22060 IF a=2 THEN 

DEF FN ok=ASC(RIGHTf(a$,1)) 

22070 IF a=3 THEN 

DEF FN ok=ASC(MIDS(a$,b,1)) 
22080 IF a=4 THEN DEF FN ok=LEN(a$) 

22090 IF a=5 THEN DEF FN ok=sp+b 

22100 IF 5=2 THEN 

DEF FN ok=ASC(LEFTf(RIGHT*iaf,2), 
22250 RETURN 

22930 '< < < << < < < < << ENTRADA> > >> > > > >> >> 

23000 af="":sp=0 

23010 CLS #5: F'RINT #5,af 

23020 wf=IIMKEY$ : wf=UPPERf (w$) 

23025 IF w$=" " THEN sp=sp+l:GOTO 23 
23030 IF w*=CHR*(13) THEN GOTO 23130 
23040 IF w$=CHR*(127) AND LEN(af)>0 
af=LEFTf(af,LEN(a*)-1):GOTO 23 
23050 IF w$<"A" OR wf>"Z" THEN 
GOTO 23020 


1) ) 

;060 

THEN 

070 
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2 3 - j 6 O ~ 3 ^ w 

23070 SOUND 2,200,10,12:GOTO 23010 
2313o a”LENÍa$) 

23140 IF a<1 THEN GOTO 23000 

23150 SOUND 1,400,50,?:SOUND 1,200,20,9 

23160 re=FN ok 

23250 RETURN 

24000 GOSUB 23000 
24005 IF a$=’"aUIT" THEN RUN 
24010 IF re=c THEN GOSUB 21000 
ELSE GOSUB 21500 

24020 LOCATE #2,3,3sPRINT #2.win 
24030 IF win=3 THEN GOTO 25000 
24250 GOTO 24000 

24930 ’< < < << < <<<<< < <qanar> >>> >> >> > > >>> 

25000 MODE 1 
25010 LOCATE 12,3: 

PRINT "FELICITACIONES !" 

25020 LOCATE 11,4:PRINT STRING*<IB,45) 
25030 LOCATE 9,10: 

PRINT "Resolvió el problema !" 
25100 LOCATE S,23:PRINT 

"Pulse ? S’ para jugar otra vez" 

2511O INKEYÍ:a$=UPPER$(a$) 

25120 IF a$="S" THEN GOTO 1100 
25130 GOTO 25110 

39980 ’< << <<<< << < temas > > > > > > >> > >> > > >> > > 

40000 DATA perro,actor,estrella, 

prog tv,peí i cu1 a,obra teatro, 
cancion 

40010 DATA mi ero, col or , -F1 or , árbol , gema, 
1 i b r o, d ep or t e, -í i er a, p a j ar o, s i t i o 
40020 DATA pez,nombre,coche 
40050 DATA 2,1,78,1,2,82,3,2,79,5,1,2 
40060 DAT A 1,1,83,5,0,0,5,5,6,4,1,8 
40070 DATA 4,1,4,2,1,80,4,1,3,2,1,68 
40080 DATA 5,2,4,3,3,67,3,4,83,3,3,65 
40090 DA"1 A 2,1,82,3,2,65,3,2,6b, 4, 1,6 
40500 RESTORE 40000 
40510 DIN s$(20) 

40520 FOR n=l Tü 20 
40530 READ s$(n) 

40540 NEXT n 
40550 DIM t(20,3) 
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40560 FÜR n=l Tü 20 

40570 READ t(n,1),t(n,2),t(n,3) 

40580 NEXT n 

40600 RETURN 



3 

Yo acuso 



Una lista de sospechosos 

Se trata de un test de deducción que desafiará a todos los inves¬ 
tigadores en cierne. 

Usted es el inspector Watkins del C.I.D. (Computer Investiga- 
tions Department) y está llevando a cabo un curso de entrenamien¬ 
to intensivo. Con él se va a medir su valor y resistencia. El curso 
también probará su inteligencia y capacidad para utilizar un orde¬ 
nador en la detección de criminales. Ya que no podemos hacer un 
test de valor y resistencia en este libro, nos conformaremos con 
probar su capacidad deductiva. 

El ordenador es capaz de generar miles de permutaciones a 
partir de un conjunto de datos. En un segundo seleccionará un cri¬ 
minal con sus características principales, así como el testimonio 
de un testigo que determine quién es culpable. Usted puede pre¬ 
guntar hasta seis conjuntos de características y para ello sólo tie¬ 
ne que pulsar el número correspondiente (lado izquierdo de la pan¬ 
talla). En la pantalla aparecerán esas características junto con la 
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declaración de los testigos clave. Esto debería ser suficiente para 
identificar al criminal si ha elegido las características correctas. 

Debe introducir el número del sospechoso elegido como crimi¬ 
nal y el ordenador juzgará si ha estado acertado. 

Puede que este programa tenga un valor educativo, pero fun¬ 
damentalmente se ha diseñado con el fin de que fuese diferente 
de otros y divertido. 


1 

’ << << << <<< <vo acuso > > >> 

> > > > > > > > > > 

o 

F:EM 


1000 

GOSUB 22000 


1200 

GOSUB 20000 


1500 

GDSUB 21000 


1600 

FOR q=1 TO 6 


1610 

GOSUB 23000 


1620 

NEXT g 


1630 

CL.S #2: F'RINT #2, " 

Ahora debe 

poner el numera bel sospechase que us 

ted cree que cometió elcrimen 

II 

1640 

PRINT #2: 



PRINT #2,"El testigo di 

je que. . . " 

1650 

RESTORE 1700 


1660 

FOR n=1 TO 10 


1670 

READ a$ 


1680 

IF w (1) =n OF: w (2) =n OF; 

w (3) =n OF: 

w 

<4)=n THEN PRINT #2, "El 

criminal "; 


ai; " ";s$ <s,n> 


1690 

NEXT n 


1700 

DATA era,era,era,ten i a 

peí o,teni a 


pelo,llebava,llevaba zapatas,teni a ajas, 

tenia naris,1 levaba 

1710 RESTORE 1720 

1720 FOR n=l TO 12 

1730 READ a,b:SOUND 2,a,b,15 

1740 NEXT n 

1744 DATA 100,25,200,25,300,25,400,25 
1746 DATA 200,25,300,25.400,25,500,25 
1748 DATA 300,25,400,25,500,25,600,25 
1750 a$=INKEY$:IF a$<"1" OF: a$>"4" 

THEN GOTO 1750 
1760 cr=VAL(a$) 

1770 SOUND 2,600,50,15: 
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SOUND 2,400,50,15: 

SQUND 2,200,50,15 
1780 CLS #2 

1790 IF cr=s 7HEN GOTO 3000 
2000 F'RINT #2, "Es usted un negado ’ Insp 
ector’ Perez. No ! Le voy a degradar a 
agente Perez" 

2010 PRINT #2: F'RINT #2 

2020 PRINT #2,"Era el sospechoso numero 

II „ , II 1 il 

2050 GOTO 3050 

3000 PRINT #2,"Felicitaciones, Inspecto 
r Perez !" 

3010 PRINT #2: F'RINT #2," Dedujo corr 
ecLamente el criminal, a partir de las p 
istas dadas." 

3050 LOCATE 6.25:PRINT " Pulsa cualquie 
r tecla para jugar otra vez." 

3060 af=INKEY$:a$=UPF'ER$(at) : 

IF a$="" THEN GOTO 3060 
3070 IF a$="3" THEN GOTO 1200 
3080 SOUND 2,100,50,15 
3090 GOTO 1200 

19980 ■’ < < < < < < < < < < < p an t a 11 a > > > > > > > > > > > > > 

20000 INK 0,0:1NK 1,20:INK 2,6:1NK 3,26 

20010 BOEDER 0: PAPER 0:F'EN 1 : MODE 1 

20020 WINDOW #1,10,40,3,12 

20030 WINDOW #2,1,40,15,24 

20040 PAPER # 1,0: F'EN #1,1: CLS #1 

20050 PAPER #2,0: F'EN #2, 3: CLS #2 

20060 F'EN 2:no~l 

20070 FOF; n = 12 TO 36 STEF' S 

20080 LOCATE n.l: F'RINT no 

20090 no—no+1 

20100 NEXT n 

20110 RESTORE 20100 

20120 FOF; n=3 TO 12 

20130 LOCATE l,n 

20140 READ a$: F'RINT a$ 

20150 NEXT n 

20160 DATA O-SEXO, 1-ASF'ECTO, 2-ALTURA, 

3—PELO, 4—COLOR P, 5-ROF'A, 6-CAL2AD0, 
7-0JOS,8—NARI2,9—OTROS 
20170 F'RINT #2, "Elija su pregunta (0-9) " 
20500 RETURN 
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2 O ? S O ’ < < < < < < < < < < s a t u p > > > > > > > > > > > > > > > 

21000 RANDQMIZE TIME 
21010 3=INT(RND(1)* 4)+1 
21020 FGR n=1 TO 4 
21022 w(n)-0 

21024 check=0 

21025 a=INT(RND<1 > * 10 > +1 
21030 FGR q=l TO 4 

21032 IF w(q)=a THEN check=l 

21034 NEXT q 

21035 IF check=1 THEN GOTO 21024 
21037 w(n)==a 

1040 NEXT n 
1050 FOR n=l TO 10 
1060 FOR q=l TO 4 
21070 a=INT(RND<l)*4>+l 
21080 sf (q, n) =1 í (n, a) 

21090 NEXT q 
21100 NEXT n 

21105 n=w(1):GOSUB 21150:n=w(2): 

GOSUB 21150 

21110 n=w(3):GOSUB 21150:n=w (4): 

GOSUB 21250 
21120 RETURN 

21150 RANDOMIZE TIME:a=INT(RND(1)*4)+1 
21160 s$(s,n)=lí!n,a) 

21170 t“s+2:IF t>4 THEN t=t-4 
21180 s$(s,n)=l$<n,a) 

21190 IF aOl THEN b=a-l EL8E b=4 
21200 t=t-2:IF t<1 THEN t=t+4 
21210 s$<t,n)=l*<n,t>) 

21220 t=t-2:IF t<l THEN t=t+4 
21230 sí(t,n)=1$(n,b) 

21240 RETURN 

21250 RANDOMIZE TIME:a=INT(RND(1)*4)+1 
21260 s$(s,n)=l$(n,a) 

21270 IF sOl THEN t=s-l ELSE t=4 
21280 s$(t,n)=I$(n,a) 

21290 IF a< >4 THEN b=a+l ELSE b-1 
21300 t=t-1:IF t=0 THEN t=4 
21310 sí(t,n)=l$(n,b) 

21320 t=t~l:IF t=0 THEN t=4 
21330 sí(t,n)=lí(n,b) 

21340 RETURN 

21500 DATA HOMBRE,CHICO,MUJER,CHICA 
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21510 DATA GORDO,DELGADO,FRAGIL,COJO 
21520 DATA ALTO,BAJO,GRANDE,ENANO 
21530 DATA NORMAL,CORTO,RIZADO,LARGO 
21540 DATA CASTAÑO,NEGRO,RUBIO,ROJO 
21550 DATA TRAJE,GORRO,CAPA,JERSEY 
21560 DATA BOTINES,BOTAS,ZAPATOS,ZUECOS 
21570 DATA AZULES,GRISES,VERDES,NEGROS 
21580 DATA PEQUEÑA,GRANDE,ROTA,RECTA 
21590 DATA TATUAJE,PECAS,DAGA.PISTOLA 
21600 RETURN 

21980 ’<<<<<<<inicialisación>>>>>>>>>>> 
22000 DIM sí(4,10) 

22010 DIM w(4) 

22020 DIM Ií(lO.4) 

22050 RANDQMIZE TIME 
22060 RESTORE 21500 
22070 FOR n= i TO 10 
22080 FOR m=l TO 4 

22090 READ li(n,m) 

22100 NEXT m 

22110 NEXT n 

22150 RETURN 

22980 ’ <<<<<<<-i íprequntas>>.>>>>>>>>>>> 

23000 ai= INKEYÍ: aÍ=ÜPF'ERÍ (ai) 

23010 IF a$<"O" OR ai>"9" THEN 
GOTO 23000 
23020 q w=V A L(a $) 

23030 qw=qw+l 

23035 SOUND 2,600-qw*50,25,15 
23040 FOR pe — .1 TO 4 
23050 LOCATE #1,pe#8-7,qw 
23060 PRINT #1,si(pe,qw); 

23070 NEXT pe 
23200 RETURN 




4 

Star Trek 



Un programa que sigue y sigue 

Existen versiones de programas de este tipo para casi todos los or¬ 
denadores, lo cual dice mucho en favor de su atractivo como jue¬ 
go y lo convierte en un auténtico clásico. 

Ahora usted puede transformar su Amstrad en una nave de la 
Federación Galáctica, provisto de «scanners», «fasores», etc. Su mi¬ 
sión será limpiar la zona de malignos «Klingons» sin agotar toda 
la energía de que dispone y sin ser desintegrado. 

Este programa maneja un campo estelar en perspectiva y los 
encuentros con el enemigo y aterrizajes en bases estelares se rea¬ 
lizan en «tiempo real». 

A continuación fíjese en un extracto del mega-manual (origi¬ 
nal de 32544 páginas) titulado «Cómo hacerse Capitán de una Nave 
Galáctica en 4.000 sencillas lecciones». 


1. Conserve la calma. Recuerde que como mucho perderá: su 
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vida, equipos valorados en 20.000 millones de dólares galácticos 
y las vidas humanas de todo el Universo conocido. 

2. / Mire por dónde va! Utilice los ojos de la nave para desve¬ 
lar la naturaleza del Universo. Pulsando "L" tiene acceso al Scan- 
ner de Larga distancia. Este le mostrará la posición de la nave y 
del enemigo. Los Klingons se representan en este Scanner por me¬ 
dio de un círculo, símbolo de Marte, dios de la guerra. 

Las bases estelares se representan con un círculo encima de 
una cruz, símbolo de Venus, la diosa del amor. 

Aquellos sectores que están ocupados simultáneamente por el 
enemigo y por las bases estelares, se simbolizan con un cuadrado 
(el cuadrado es un antiguo símbolo que representa... ¡un cua¬ 
drado!). 

3. A ver qué se puede hacer. Pulsando "C" se activa el Scan¬ 
ner de Corto alcance, que nos indica en pantalla la cantidad de 
enemigos y bases que hay en el presente sector. 

4. Vigile su energía. Aterrizando en una base se puede repos¬ 
tar. Para ello pulse "E" y utilice las flechas hasta que la nave ocu¬ 
pe el centro de la pantalla. Cuando haya aterrizado recibirá 20 uni¬ 
dades adicionales de energía a sumar al banco de energía de la 
nave y 20 unidades más para escudos y fasores. La capacidad má¬ 
xima es de 95 unidades. Si no se consigue aterrizar puede des¬ 
truirse la base, así es que, ¡cuidado! 

5. Atrápelos capitán. Un capitán galáctico debe cumplir su de¬ 
ber: eliminar la diabólica amenaza de los malvados Klingons. 

Si hay Klingons por ahí, pulsando la tecla "B" suena una mú¬ 
sica bélica y se puede empezar el ataque. En primer lugar sitúe al 
enemigo en el centro de la pantalla empleando el cursor o el «joys- 
tick» (puntero) y, una vez preparado, pulse la tecla "COPY", o el 
botón de disparo del joystick lanzando rayos para destruir el 
objetivo. 

Si no se consigue hacer blanco enseguida el factor sorpresa se 
perderá y le devolverán el fuego terminando por destruir su barre¬ 
ra de energía, así que no se rinda hasta que no quede ni uno. Des¬ 
pués puede irse a otro sector a ganar más batallas. 

6. Muévase con cuidado. Existe la posibilidad de desplazarse 
a cualquier sector pulsando "M" seguido por un número del 1 al 
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5. Este es igual al factor de desplazamiento o a la distancia que 
desee recorrer. 

A continuación debe introducir la dirección de movimiento (nú¬ 
mero entre 1 y 8). Cada número corresponde a una dirección en 
la brújula. El 1 en la parte superior central de la pantalla y los de¬ 
más correspondientes a un ángulo de 360°/8 en el sentido de las 
agujas de un reloj. Nota: los relojes se han mantenido en la fecha 
de partida para ayudar a los capitanes a dirigir sus naves ga¬ 
lácticas. 

7. La penúltima frontera. Al principio de la misión puede se¬ 
leccionar el nivel de dificultad. Habrá 10 enemigos en el más fá¬ 
cil, 20 en el intermedio y 30 en el más difícil. 

Según se va completando cada fase, el Estado Mayor de los 
Klingons, que recibe partes de situación, se encarga de mandar 
nuevos refuerzos, cada vez envían 10 más a combatir. El número 
máximo de enemigos que hay que destruir es de 200 ¿Está prepa¬ 
rado Capitán?, entonces... ¡que empiece el programa! 

1 ’ < < < < < < < < < < < < s t a r t r e k > > > > > > > > > > 

2 REM 

500 SYMBOL 240.7,98,242,254,242,98,7,0 
600 DIM 3(15,2) 

610 MEMORY 39995 

620 addr=39999:GQSUB 29500 

650 F'RINT CHR* (23) ; CHR* (1) ; 

1000 GQSUB 21000 

1010 GOSUB 22000 

1020 GOSUB 20000 

1030 GOTO 4000 

2000 a*=IIMKEY$: a*=UPPER* <a$) 

2010 IF a*="L" TRIEN GOSUB 23000 
2020 IF a$="0" THEN GOSUB 24000 
2030 IF a$="M" THEN GOSUB 25000 
2040 IF a*="E" THEN GOSUB 26000 
2050 IF a$="B" THEN GOSUB 27000 
2080 FOR n=l TO 30:NEXT n 
2090 GOSUB 11000 
3000 IF a$="" THEN GOTO 2000 
3010 IF muerte=l OR ener<1 THEN 
GOTO 7000 

4000 LOCATE 7,21 SPRINT ener 
4010 LOCATE 7,23sPRINT escu 
4020 LOCATE 7,25:PRINT -Faso 
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4030 

LOCATE 17, 

21: F'RINT sec 


4040 

LOCATE 17, 

23; F'RINT enem 


4050 

LOCATE 17, 

25: F'RINT sisee 

,2) 

4060 

5000 

IF enem=al 
GOTO 2000 

i en THEN GOTO 

10000 

6980 

* y' y y' y' .;•* y' y' ' 

muer te > >>> >> > > 


7000 

PAPER 1:PEN 3sCLB 


7010 

7015 

F'RINT " 
F'RINT 

Manía Suerte ! 

II 

7020 

7025 

F'RINT " 

F'R I NT 

La" 


7030 

7032 

F'RINT " 
F'RINT 

Nave espaci al" 


7035 

7038 

F'RINT " 
F'RINT 

Enterprise " 



7040 F'RINT " ha sido destruida" 
7045 F'RINT 


7050 

F'RINT 

" por los Klingons " 

7055 

F'RINT 


7060 

F'RINT 

"pero el Almirante " 

7065 

F'RINT 


7070 

F'RINT 

"Azúcar ha decidido" 

7075 

F'RINT 


7080 

F'RINT 

" darte una nueva " 

7085 

F'RINT 


7090 

F'RINT 

"oportuni dad, piaran" 

7095 

F'RINT 


7100 

F'RINT 

"tomarte la venqanzani" 

7110 

LOCATE 

"t 2 y, • 


F'RINT 

"Una tecla para jugar" 

7120 

<■»: 

+H- 

j; 

EY$ 

7130 

IF a$= 

"" THEN GOTO 7120 

7140 

GOTO 1000 

9980 

? 

<< << < << <siguiente > > > > >> > > > 

10000 

F'AF'EF; 

1: F'EN 3: CLS 

10010 

F'RINT 

" Bien hecho," 

10020 

F'RINT: 

F'RINT " Capitán Kirk." 

10030 

F'R I NT: 

F'RINT " Ahora debes luchar 

10040 

F'RINT: 

F'RINT " con un grupo mas 

10045 

F'RINT: 

F'RINT " peligroso de " 

10050 

F'RINT: 

F'RINT ” KLINGONS.,.,..." 

10060 

al ien= 

=al i en +10 

10070 

LOCATE 3,23: 


F'RINT 

"Una tecla para jugar" 
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1 ooso 

a$=INKEYÍ 


10090 

IF a$ 

= "" THE N G0T0 1008 1 

0 

10100 

GOTO 

1010 


109 SO 


<<<<<<<estrellas> > 


1 i 000 

INK c 

1 r, 2 


11010 

c 1 r=c 

lr + lsIF c1r = 13 TREN clr=5 

1 1020 

INK c 

1 r, 26 


11030 

RETUR 

N 


19980 

* s' 

•i < < < < < < o anta 11 a > » 


20000 

MODE 

0: SF'EED INK 10,10 


20020 

INK 0 

,OsINK 1,2:INK 2,3 

: INK 3,24 

20030 

INK 4 

, 3: INK 14,2,24: INK 

15,24,6 

20035 

WINDOW #1,1,20,1,2 


20040 

WINDOW #2,2,13,3,, 19 


20050 

WINDOW #3,15,19,5,11 


20060 

WINDOW #4,15,19,i3,19 


200 7O 

BURDER 0: PAPER 0:F'EN 4: 

CLS 

20080 

PAPER 

#1,4:PEN #1,1:CLS 

#1 

20090 

PAPER 

#2,1:PEN #2,3:CLS 

#2 

20100 

PAPER 

#3,2:PEN #3,3:CLS 

#3 

20110 

PAPER 

#4,2:PEN #4,3:CLS 

#4 

20120 

LOCATE 1 ó, 4 : F'R I NT " DLA " 


20130 

LÜCAT 

E 16, 12sF'RINT "DCA 

II 

20140 

PEN 3 



20150 

LOCATE 1.21 SPRINT "ENER 

GIA" 

20160 

LOCAT 

E 1,23 SPRINT "ESCUDO" 

20170 

LÜCAT 

E 1,25:PRINT "FASQR" 

20180 

LOCAT 

E 11,21 sF'RINT "SECTOR" 

20190 

LOCATE 11,23: F'R I NT " EN EN IGO: " 

20200 

LOCATE 11,25:PRINT "*-BASE:" 

20210 

PEN 4 



20290 

PR I NT 

CHR$(23):CHR$(0); 


20300 

col -5 



20310 

FOR n 

=1 TO 12 


20320 

PLOT 

206+n*16,230,c o1 


20330 

F'LOT 

238-n*16,230,col 


20340 

PLOT 

222,220+n*12,col 


20350 

PLOT 

222,240-n*12,col 


20360 

PLOT 

206+n *16,220+n *12, 

col 

20370 

PLOT 

206+n*16.240-n*12, 

col 

20380 

PLOT 

238-n*16,220+n *12, 

L- O i 

20390 

PLOT 

238-n* 16,240-n*12, 

col 

20410 

INK 1 

"T 


20420 

PLOT 

40,110,13:DRAW 200 

, 220 

20430 

PLOT 

400,110,13:DRAW 25 

0,220 
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20440 col=col+i:IF col=13 THEN col=5 
20450 NEXT n 
20460 PEN #2,3 

20470 LOCATE #2,5,12:FRINT #2,CHR*(147) ; 

CHR$ (158); CHR« (158) ; CI-IRt < 153) ; 
20490 c1r=5 

20500 PRINT CHR$ (23) : CHR$ < 1) ; 

20510 RETURN 

2 O 9 S O ’ < < < < < < < < < < dificultad > > > > > > > > > > > 

21000 PAPER O:PEN 1:MGDE 1 
21005 muert2=0 

21010 PRINT "Difícil/Fácil/Medio ?" 

21020 a$=I NKEYf : a$=UPPER$ (a$) 

21030 IF a$="D" THEN al i en=20:RETURN 
21040 IF a*="F" THEN al ien = 10:RETURN 
21050 IF a*="M" THEN al ien = 15:RETURN 
210Ó0 GOTO 21020 

21980 ’<<<<<<<<<inicialisacion>>>>>>>>> 
22000 RANDOMIZE TIME 

22010 FOR n = 1 TO 15:s(n,1)=0:s < n,2)=0: 
NEXT n 

22020 FOR n=l TO alien 

22030 sec=INT(RND(1)* 15)+1 

22040 IF sisee.1)>3 THEN GOTO 22030 

22050 s(sec,1)=s(sec,1)+1 

22060 NEXT n 

22070 FOR n=l TO 3 

22080 po=INT(RND(1)*15)+1 

22090 IF s(pe,2)=1 THEN GOTO 22080 

22100 s(po,2)=1 

22110 NEXT n 

22120 faso=25:ener=25:bad=0:escu=25 
22130 sec = INT(RND(1 )% 15)+1 
22140 enem=0 
22200 RETURN 

22980 ’ < < < < < < < < «largo a 1 c an c e > > > > > > > > > 

23000 SOUND 2,200, 25, .15: po= 1 

23010 FOR n=1 TO 3 

23020 FOR m=l TO 5 

23030 LOCATE #3,m,n*2:PEN #3,3 

23040 IF po=sec THEN PEN #3,15: 

PRINT #3,CHR$(240):GOTO 23070 
23045 IF sipo,1)>0 AND s(po,2)=l THEN 
PEN #3,4:PRINT #3,CHRf(232): 

GOTO 23070 
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23050 IF sipo,1> >0 THEN 

PRINT #3,CHR$í 234):GOTO 23070 
23060 IF s(po,2)=l THEN 
PR I NT #3, CHF'f. (235) 

23070 po=po+l 
23OSO NEXT m 
23090 NEXT n 

23100 FOR n = l TO 7500:NEXT n 

23140 CLS #3 

23150 SOUNO 2,200,25,15 

23190 ener=ener-6 

23200 RETURN 

23980 ’ <<<<<<<<<<<corto alcance)->>>>>> 
24000 SOUND 2,150,25,15 
24005 F'EN #4,15 

2401O LOCATE #4.2,3;PRINT #4,CHRf(234); 

5(»ec,1) 

24015 PEN #4,14 

24020 LOCATE #4,2,5:PRINT #4,CHRí(235); 
s(sec,2) 

24030 FOR n=i TO 7500:NEXT n 
24040 CLS #4 
24050 SOUND 2,150,25,15 
24090 sner-ener-3 
24100 RETURN 

2498O •’ < < < < < < < < < < < < movimiento > > > > > > > > > 

25000 CLS #1:PEN #1,3 

25010 PRINT #1,"FACTOR DE MOV.(1-5)?" 
25020 a$=1NKEY*:a$=UPPER$ (a$ 5: 

IF aí=" M THEN GOTO 25020 
25030 IF a$<"1" OR a$>"5" THEN 

SOUND 2,3,50,50,15:GOTO 2501O 
25040 dis=VAL <a$) 

25050 CLS #1 

25060 PRINT #1,"DIRECCION DE MOV.?" 
25070 a$~ I NKEYf : at =UPF'ER$ (af) : 

IF a$="" THEN GOTO 25070 
25080 IF a$<"1" OR a$>"8" THEN 

SOUND 2,3,50,50,15:GOTO 25060 
25090 dir=VALía$) 

25100 RESTORE 25500 
25110 FOR n~l TO dir 
25120 READ xy 
25130 NEXT n 
25150 FOR n=1 TO dis 
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25160 sec=sec+xy 
25170 IF sec<l THEN sec=sec+15 
25180 IF sec>15 THEN sec=sec-15 
25190 SOUND 2,75*n,25,15 
25250 NEXT n 

25260 IF s(sec,1)>0 THEN GOSUB 25600 
25270 C'LS #1 

25280 ener=ener-INT(dis*1.5) 

25300 RETURN 

25500 DATA -5,04,1,6,5,4,-1,-6 
25580 -<< < < << < < << < ALERTA >> > > > >> > > > > > 

25600 F'EN #1,15 

25610 a$="ALERTA ROJA ! .ALERTA ROJA 
ALERTA ROJA ¡ . " 

25620 x = INT(RND(1)*300)+ 1 00:dis=1 
25650 FOR n = l TO 25 
25660 a*=RIGHT*(a$.39)+LEFT$(a*,1) 
25670 LOCATE # 1, 1, 1: F’R INT #1,a$ 

25680 SOUND 2.100-n*2,1,15 
25690 NEXT n 
25700 RETURN 

25980 ’<< < <<<<<<< <ENTRADA BASE>> >>>> 
26000 CLS # 1 : F'EN #1,3 
26010 IF s <sec,2)=0 THEN 

F'RINT #l,"No hay E-fase Estelar. 
SOUND 2,300,25,15:RETURN 
26020 = I NT < RND (1> *200) +75: d i s= 1 

26030 y=350:TAG 
26040 F'LOT 0,0,1 
26050 NOVE x,y:PRINT CHR$(235); 

26060 GOSUB 28000 

26070 NOVE x, y: F'RINT CHR»(235)s 

26080 IF ri=1 THEN dis=dis-l 

26090 IF 1e=l THEN dis=dis+l 

26100 y=y~ 1: =;■: +d i s 

26102 IF x<30 THEN x=30:dis=dis+1 

26104 IF x>380 THEN sí =380: di d=di s-1 

26110 IF y=200 THEN GOTO 26150 

26120 GOTO 26050 

26150 TAGOFF: F'EN 4 

26160 IF x< 160 OF: x >270 THEN 

F’RINT #1, "FALLASTE ! !": 

SOUND 1,400,25,15:RETURN 
26170 IF x >190 AND x<240 THEN GOTO 2 
26180 F’RINT #1," BASE ESTELAR 



6200 

DEST 
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RUIDA":SOUND 1,500,50,15,O,O,31 
26185 FOR n=5 TO 12:INK n,3:MEXT n 
26190 FOR n~5 TO 12:INK n,6:NEXT n 
26195 s <sec.2)=0:EETURN 
26200 F'RINT #1, "ENTRANDO_" 


26210 

ener=ener+20: 
ener“95 

IF 

o ri q 

THEN 

26215 

■f aso“f aso+20: 
•f 3 30=95 

IF 

+aso>95 

THEN 

26220 

e 3 cu=escu+20: 

IF 

escu>95 

THEN 


escu=95 

26230 SOUND 1,300,25,15: 

SOUND 1,200,25,15: 

SOUND 1,100,25,15 

26240 FOR n=l TO 2000:NEXT n:CLS #1 
26250 RETURN 

269S O 5 < < < < < < < < < < < < b a t a 11 a > > > > > > > > > > > 

27000 FOR n-200 TO 50 STEP-1: 

SOUND 1,n,1,15:NEXT n 
27010 muerte=0 
27030 F'EN #1,3 

27040 IF s(sec,l)=0 THEN TAGOFF:CLS #1: 
FRINT tt1," SECTOR DESPEJADO.": 
RETURN 

27050 x = I NT (RND (1) * 200) +75 
27060 y—I NT(RND( 1) * 100)+100 
27070 TAG: F'LOT 0,0,1 
27100 TAG: MOVE , y: FRI NT CHR$ < 235) ; 

27110 GOSUB 23000 

27120 IF -f i “ 1 AND taso>0 THEN GOTO 27500 
27130 MOVE x, y: F'R I NT CHR* (235) ; 

27132 TAGOFF 

27135 IF ki 1 = 1 THEN s(sec,1)=s(sec,1)-1: 
ki 1—O:GOTO 27010 

27140 IF le=l AND x<350 THEN xd=xd+l 
27150 IF ri = l AND x >45 THEN xd=xd-l 
27160 IF do=l AND y<350 THEN yd=yd+l 
27170 IF up~1 AND y>110 THEN yd=yd-l 
27180 IF ex=1 THEN RETURN 
27200 x=x+xd: IF x<50 THEN x=50:xd=-xd 
27210 IF x >360 THEN x=360:xd=-xd 
27220 y=y+yd:IF y>360 THEN y=360 
27230 IF y<120 THEN y=120:yd=-yd 
27235 RANDOMIZE TIME 

27240 IF RND (1X0.95 THEN GOTO 27270 
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27250 INK 1,3:SOUND 1,400,20,15,0,0,31 
27260 escu=escu-l:IF escu=-l THEN 
muerte*1:RETÜRN 

27265 FOR n=l TO 30:NEXT n:INK 1,2 
27270 LOCATE 7,23: F'R LNT escu; 

27280 LOCATE 7,25: F'RINT taso; 

27290 LOCATE 17,23: F'RINT enern; 

27450 GOTO 27100 

27490 ’ < < < < < < < < < < < -fuego > > > > > > > > > > > > > > 

27500 INK 13,6 

27510 FOR n = 100 TO 50 BTEF'-l: 

SOUND 2,n,1,15:NE X T n 
27520 INK 13,2 
27530 faso=faso-i 

27540 IF y<240 AND y>200 AND ::<240 AND 
>200 TFIEN 6051 X 1 = 606 ( 11 +1: ki1 = 1: 
SOUND 2,300,50,15,0,0,15 
27600 GOTO 27130 

27980 ’ <<<<<<<<<<<<coflii enzo>>>>>>>>>>>>■ 

28000 GOSUB 29000 
28010 GOSUB 11000 
28050 RETURN 

Ahora una con ■’MERCit ■’ la suhrut. 1 na de 
entrada de caracteres . 



5 

Frontón arco iris 



Un juego clásico 

Este otro programa clásico ejerce un fuerte atractivo para todas 
las edades. Por ser uno de los más cortos del libro, puede ser un 
buen comienzo para los principiantes en programación. 

En primer lugar se pide que se elija un bate grande o uno pe¬ 
queño. El fin es conseguir eliminar todos los ladrillos golpeándo¬ 
los con la pelota. El bate se controla con las «flechas» (cursor) o 
bien con un «joystick» y hay que moverlo anticipándose al recorri¬ 
do de la pelota que rebotará en la pared de ladrillos. 

Dispone de cuatro pelotas antes de que el juego vuelva a em¬ 
pezar. La puntuación, que puede alcanzar altas cotas cuando los 
jugadores son expertos, aparecerá al final. 

Este programa se puede unir a la rutina del de «Puntuación má¬ 
xima». Con esto, el nivel de competición permitirá la entrada de 
otro jugador o bien, simplemente, poner a prueba la pericia de uno 
solo. 
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1 '<<<<<<<<<arco iris>>>>>>>>>> 

2 REM 

400 RANBOMIZE TIME 


500 

SYMBOL 240,255,195,165,153 
165,195,255 

1 5T 

510 

SYMBOL 241,255,255,255,224, 
224,64 

^ ^ O 

520 

SYMBOL 242,255,255,255,0,0 

n 0 , 0,0 

530 

SYMBOL 243,255,255,255,7,7 

“7 -7 

4 • 4 t n a- 

550 

MEMORY 34995 


560 

addr=34999:GOSUB 29500 


570 

1oca=35029:GOSUB 30500 


1000 

sc=0:1 i=5 


1010 

MODE 1 


1020 

INF'UT "Raqueta pequena/qrande?" , 

1030 

s$=" " : l i m=19 


1040 

IF a$="G" OR a$="g" THEN 



s*=CHR* (242) +CHF;$ (242) : 

1 im=17 

1050 

GOSUB 20000 


1060 

count=0 


1100 

— 1 


1110 

GOSUB 21100 


1200 

b=24 



1210 RANDOMIZE TIME 

1220 IF RND(1)>0.5 THEN c=l ELSE c=0 
1230 c=c +(INT(rdn(1)*10)+5) 

1250 bd=-l:ad=-l 
1500 GOSUB 21000 
1520 GOSUB 22000 

1550 IF count>150 THEN GOTO 1050 
2000 GOTO 1500 

1?9SO ’>>>>>> >>>Dantal 1 a<<<<<<<<<<<<<< 

20000 RESTORE 20050 
20010 FOR n=0 TO 15 
20020 READ w 
20030 INK n,w 
'20040 NEXT n 

20050 DATA 0,24,18,26,20,4,6,15 
20060 DATA 24,1S,2,5,S,6,15,2 
20070 PAPER O:BORDER 2:M0DE O 
20075 RESTORE 20210 
20080 FOR n=i TO 20 
20090 READ col 
20100 FOR m=i TO 10 
20110 LOCATE n,m 



ro ti 
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20120 PEM col 

20130 PRINT CHR$(240); 

20140 col =col+l 
20150 NEXT m 
201¿0 NEXT n 
20200 RETURN 

20210 DATA 3, 4, 4,5,5,5, 5, 6,6, 6, 6, 6, 6,5, 
5,5,5,4,4,3 

0980 ' > > > >> > > > >movimiento<<<< <<<<<<<< 

1000 GDSLJE 29000 
21010 IF 3. e~ 1 AND ;■:>! THEN 6GSUB 21400: 
-2 sGOSUB 21100 

21020 IF ri=1 AND x<lim THEN GOSUB 21400 
+2: GOSUB 21100 
21030 RETURN 

210 9 O ’ < < < < < < < < < < d i b u j o > > > > > > > > > > > > > > > > 

21100 PEN 1 

21110 LOCATE ;-¡, 25: PRI NT CHR$ < 241) ; sí ; 

CHRÍ(243); 

21120 RETURN 

2139O ? <<<< <<<<<<'(borrado>>>>>>>>>>>>> 

21400 LOCATE 25: PRINT " 

21420 IF sf<>"" THEN PRINT " 

21450 RETURN 

21¿80 J <í <<<< < < < dibu j o pelota > >> > > > >>> 

21700 PEN 2 

21710 LOCATE c„b:PRINT CHR*(202>; 

21720 RETURN 

21790 ’ <<<<<'(«borrado pelota>>>>>>>> 
2.1800 LOCATE c,b: PRINT " 

21810 RETURN 

21980 ’ í < < < < < < «movimiento pelota > > > > > > 
22000 GOSUB 21800:al=c:bl=b 
22010 al=al+ad:bl=bl+bd 
22020 IF a1-0 THEN al=i:ad=l: 

SOUND 2,50,1,15 

22030 IF a1=21 THEN al=20:ad=-l: 

SOUND 2,50,1,15 
22040 IF b1=0 THEN bl=l 
22050 IF b1=25 THEN GOTO 22500 
22060 LOCATE al,b1:GOSUB 30000 
22070 IF ch=240 THEN PRINT " ":: 

SOUND 2,100,2,15:sc=sc+10:bd=-bd: 
count=count+l 

22075 IF bl=l THEN bd=l:SOUND 2,50,1,15 
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22080 c=c+ad: b=b+bd 
22090 GOSÜB 21700 
22100 RETURN 

22500 LOCATE c,25:G0SUB 30000 
22510 IF ch=32 THEN GOTO 26000 
22520 bd=-l 

22530 IF RND(1)>0.5 THEN c-c+1 
22540 SOIJND 2,75,1,15 
22550 RETURN 

25980 ’ < < < < < < < < < f i n > > > > > > > > > > > > > > > > > > > 

26000 GOSUB 21400: 1 i=1 i — 1 
2601O SOUND 2,300,75,15 
26020 IF 1 i>0 THEN GOTO 1100 
26100 MODE O 
26110 F'EN 1 

26120 F'RINT " FELICITACIONES ! ! " 

26130 F'RINT 

26140 F'RINT "Su puntuación: " 

26150 F'RINT 

26160 F'RINT se:" puntos !" 

26500 LOCATE 1.24: 

F'RINT "Otro juego ? (S/N) " 

26510 a$=INKEY$:a$=UPPER$ <a$) 

26520 IF a$="S" THEN GOTO 1000 
26525 IF a$="N" THEN CLS:MODE 1:END 
26530 GOTO 26510 

Ahí ora una con 'HERBE 3 las sub rutinas de 
’ e n t r a d a d e c a r a c t e r e s ’ y d e 
r comprobación de caracteres. 



6 

El loco del laberinto 



Un programa con perspectiva 

En este tercer juego clásico, el laberinto en 3D, se presenta una 
perspectiva de los caminos que hay ante usted. 

El objeto del juego es abrirse paso por el laberinto con rapidez, 
la suficiente como para atrapar al loco. Por el contrario, si es muy 
lento el loco le alcanzará a usted. 

En la pantalla aparecen los caminos abiertos y la flecha que 
hay en la parte inferior indica la dirección en que está mirando y 
la distancia recorrida hacia la salida que se encuentra en la parte 
superior derecha de la pantalla. 

Las flechas (o cursor) que indican derecha o izquierda permi¬ 
ten cambiar de dirección y las que señalan hacia arriba í o ha¬ 
cia abajo 1 sirven, respectivamente, para avanzar una posición 
en el dibujo o para retroceder un puesto y recuperar la dirección 
en que se estaba. El «joystick» cumple la misma función. 
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Una vez que se ha logrado salir del laberinto el tiempo dispo¬ 
nible se acorta y el objetivo es repetir la operación procurando su¬ 
perar la marca. 

Este juego utiliza una técnica compleja que se basa en los «pun¬ 
teros de color» del Amstrad y su objetivo es hacer cambios de grá¬ 
ficos en la pantalla ya que puede permitirle efectuar movimientos 
a gran velocidad en sus propios programas. 

Si el programa se carga junto con la rutina del de "Puntuación 
máxima", podrán participar muchos jugadores e intentar superar 
cada vez el tiempo del oponente. 

1 ? <<<<<el maniaco del laberinto>> 

2 F:EM 
900 hi ah—99 

1000 GOSUB 24000 

1020 GOSUB 22000 

1050 po-1:view=4:targ=hiqh-4 

1060 LOCATE 9,22:F’RINT "EL LABERINTO " 

1065 LOCATE 8,24:PRINT "DEL MANIACO" 

1070 GOSUB 20000:GDSUB 32000 

1080 GOSUB 27000:GOSUB 23000 

1090 start=TIME 

1100 GOSUB 28000 

1150 GOSUB 27000 

1160 GOSUB 23000 

1170 IF won=l THEN GOTO 33000 

1180 won=0 

1200 GOTO 1100 

9980 ’<< <<< < < <<< monstruo> > > > > > > > > > > 

10000 SYMBOL 228,O,0,16,44,62,28,56,112 
10010 SYMBOL 229,129,66,126,90,126,106,8 
6,60 

10020 SYMBOL 230,O,O,8,52,124,56,28,14 
10030 SYMBOL 231,112,121,127,63,31,7,1,1 
10040 SYMBOL 232,60,255,255,255,231,215, 
235,213 

10050 SYMBOL 233,14,158,254,252,248,224, 
128, .128 

10060 SYMBOL 234,1,3,15,15,31,63,62,62 
10070 SYMBOL 235,171,213,235,215,235,255 
, 60, O 

i.0080 SYMBOL 236, 128, 192,240, 240,248, 252 
,124,124 
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10090 SYMBOL 


237,30, 15, ií 


127,12 


/ 

10100 SYMBOL 238,O,O,O,O,129,195,195,129 
1O11O SYMBOL 239,120,240,240,192,220,254 
,254,156 

10120 F'EN 15: INK 15,13 
10130 LOCATE 8, 10: F'R I NT CHF;$ (228 > ; 

CHRf(229);CHRf(230) 

10140 LOCATE 8,11: PRINT CHR$(231); 

CHR$(232);CHR$(233) 

10150 LOCATE 8,12: PR I NT CHR$ (234) ; 

CHR$(235);CHRí(236) 

10160 LOCATE 8, 13: F'RINT CHR$(237); 

CHRf(238);CHR*(239) 

10170 F'EN 1 
10200 RETURN 

19980 ’<<<<<<inicialisa pantalla>>>>>> 

20000 BORDER Os PAPER Ü:MODE O 

20040 INK 0,3: F'EN 13 

20050 F'LOT 0,76, 13: DRAM 639,76 

20060 F'LOT O, 72, 13: DRAM 639,72 

20070 F'LOT 0,2,13: DRAM 639,2 

20080 F'LOT 0,6,13:DRAW 639,6 

20090 F'LOT 158, Os ORAN 158,78 

20100 F'LOT 150, O: DRAL) 150,78 

20110 F'LOT 512, Os DRAM 512,78 

20120 F'LOT 520,0: DRAW 520,78 

20130 GOSUB 21000 

20140 F'LOT 0,30, O: DRAW 240,2O O: 

DRAW 240,278,15 

20150 F'LOT 639,30, O: DRAW 398,200: 

DRAW 398,278,15 

20160 F'LOT 160, 160,14: DRAW 160,318 
20170 F'LOT 478,160,14: DRAW 478,318 
20180 F'LOT 80, 120, 13: DRAW 80,358 
20190 F'LOT 558, 120, 13: DRAW 558,353 
20200 LOCATE 1,22: F'RINT "Meta" 

20210 LOCATE 1,24: F'R I NT targ 
202 i 5 F'R I NT CHRf (22) ; CHRÍ (1) ; 

20220 LOCATE 18,22: F'RINT "Sa" 

20230 LOCATE 17,24: F'RINT high 
20240 F'R I NT CHR$ í 22) ; CHRí (O) ; 

20270 RETUR'N 

2 O 98O ’<< < < << < <dibujo paredes> >> > > > > >> > 
21000 FOF: n=80 TO 118 STEF' 2 
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21010 F'LOT O, n , 14: DRAW 558, n 

21020 F'LOT O, 280+n , 13: DRAW 638,280+n 

21030 NEXT n 

21040 FOR n=l20 TÜ 158 STEP 2 
21050 F'LOT 80, n, 14: DRAW 558, n 
21060 F'LOT 80,200+n ,14: DRAW 558,200+n 
21070 NEXT n 

21080 FOR n = l 60 TO 198 STEP 2 
21090 F'LOT 160, n, 15: DRAW 478, n 
21100 F'LOT 160,120+n,15:DRAW 478, 120+n 
21110 NEXT n 

21120 FOR n=2'00 TO 273 STEP 2 
21130 F'LOT 240, n. O: DRAW 398, n 
21140 NEXT n 

21150 FOR n=0 TO 78 STEF' 4 
21 160 F'LOT n, 120,10: DRAW n , 353 
21170 F'LOT 639-n, 120,7: DRAW 639-n,358 
21180 NEXT n 

21190 FOR n=SO TO 158 STEF' 4 
21200 F'LOT n,160,11:DRAW n,318 
21210 F'LOT 639-n, 160,8: DRAW 639-n, 318 
21220 NEXT n 

21230 FOR n = 160 TO 233 STEP 4 
21240 F'LOT n , 200,12: DRAW n , 278 
21250 F'LOT 639-n , 200, 9: DRAW 639-n , 278 
21260 NEXT n 

21270 FOR n=360 TO 398 STEP 2 
21280 F'LOT 78,360, 1 : DRAW 0,n 
21290 F'LOT 78, 118, 1: DRAW 0,n-280 
21300 F'LOT 560,360,4: DRAW 638, n 
21310 F'LOT 560, 118, 4: DRAW 638,n-280 
21320 NEXT n 

21330 FOR n=320 TO 358 STEP 2 
21340 F'LOT 158,320,2: DRAW 80, n 
21350 F'LOT 158,158,2: DRAW 80, n-200 
21360 F'LOT 480,320,5: DRAW 558, n 
21370 F'LOT 480, 158,5: DRAW 558, n-200 
21380 NEXT n 

21390 FOR n=280 TO 318 STEF' 2 
21400 F'LOT 238,280,3: DRAW 160, n 
21410 F'LOT 238, 198, 3: DRAW 160, n-120 
21420 F'LOT 400, 280,6: DRAW 478, n 
21430 F'LOT 400, 198, 6: DRAW 478,n-120 
21440 NEXT n 
21450 RETUEN 
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21980 

? 

< < < < <,c o1 or datos >>> 

22000 

DIM 1 

(14,9) 

22010 

RESTORE 22000 

22020 

FOR n 

i = l TO 14 

22030 

■FOR ti 

i=l TO 9 

22040 

READ 

a:1(n,m)=a 

22050 

NEXT 

rn 

22060 

NEXT 

n 

22070 

RETURN 

22080 

DATA 

6< 6, ó, 6 ? 6 ? 6„20,11,2 

22090 

DATA 

& , ¡i to , & , , 11,2 

22100 

DATA 

¿j , 1 1 , ó, , •_:«, ó, 2 0, 11,2 

221 10 

DATA 

6,11,2,6,3,3,20,11,2 

22120 

DATA 

20,6,6,3,6,6,20, 11 2 

22130 

DATA 

20,6,2,3,6,3,20,11,2 

22140 

DATA 

20, 11,6,6,3,6, 20, 11, 

22150 

DAT A 

20,11,2,3,6,3,20,11,; 

22160 

DATA 

6,6, ■«*, 6, 6, , 2o, 11, .o* 

22170 

DATA 

, 11, , ■-*, , 2 0, 11,3 

22180 

DATA 

20,6,3,3,6,3,20, 11,3 

22190 

DATA 

20, .11,3,6,3,3,20, 11,: 

22200 

DATA 

6,3,3,6,3,3,20,3,3 

22210 

DATA 

•*- O , - 1 , *-•, , -- 1 , , 2 O, , V* 

22980 

5* .;•* .;•* .;•* 

<<<<elegir colores)) 

23000 

FOR n 

= 1 TO 3 

23010 

INK n 

,1(v1,n) 

23020 

NEXT 

n 

23030 

FOR n 

=4 TO 9 

23040 

INK n+6,1(vi , n ) 

23050 

NEXT 

n 

23060 

FOR n 

= 1 TO 6 

23070 

INK n+3,1 (vi,n) 

23080 

NEXT 

n 


23110 RETURN 

23980 ? <<<<<<<<<<<variables>>>>>>>>>>>> 

24000 DIM m(55) 

24010 GOSUB 25000 

24020 addr=34999:GOSUB 29500 

24250 RETURN 

24980 ’ <<<<<<<<datos laberinto>>>>>>> 

25000 RESTORE 25000 

25010 FOR n=1 TO 55 

25030 F;EAD a: mínima 

25050 NEXT n 

25090 RETURN 
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25100 DATA 4,6, 1,6,7,5,4,6,5,6,1 
25110 DATA 10,13,2,9,12,10,11,9,14,11,1 
25120 DATA 6,9,6,3,9,2,5,6,9,6,5 
25130 DATA 12,6,13,2,5,6,15,9,6,9,12 
25140 DATA 10,9,10,3,9,8,10,3,9,2,9 
25980 ’<< < <<< < < < < n/s/e/w> > > > > > > >> >> > > > > 
26000 ¡!=m(po) 

26010 no=0:so=0:ea=0:we=0 
26020 IF ;; >=8 THEN no=l :x=x-8 

26030 IF >=4 THEN so=l -4 

26040 IF ;<>=2 THEN ea= 1 -2 

26050 IF >=1 THEN we=l ::■:=}•:-1 

26060 RETURN 

26980 ’<<<<<<<<<<chek view>>>>>>>> > > > > 

27000 GOSUB 30000 
27040 vl=l:vr = l:a=l:sa=po 
27050 FÜR q=2 TO O STEP -1 
27055 ok=q#disp:IF sa+ok<1 OR sa+ok>55 
THEN GOTO 27160 
27060 po=sa+ok 
27070 GOSUB 26000 
27075 d=0:1=0:r=0 

27080 IF view=l THEN d=we:1=so:r=no 

27090 IF view=2 THEN d=no:l=we:r=ea 

27100 IF view=3 THEN d=ea:1=no:r=so 

27110 IF view=4 THEN d=5o:1=ea:r=we 

27120 IF d=0 THEN GOSUB 27500 

27130 IF 1=1 THEN vl=vl+a 

27140 IF r=1 THEN vr=vr+a 

27150 a=a*2 

27160 NEXT q 

27170 po=sa 

27180 RETURN 

27480 ? <<< < << < < < << XY Z > > > > > > > > >> > > > > >> > 

27500 vi=13:a=l 
27510 IF q=2 THEN vl=l 
27520 IF q = l THEN vi =9 
27530 vr=vl 
27540 RETURN 

27980 ’posicion movimiento>>>>>>>>>>>>> 

28000 GOSUB 29000 

28010 IF le=l THEN view=view-1: 

GOSUB 32000 

28020 IF ri=l THEN view=view+l: 

GOSUB 32000 
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28040 IF do=l THEN view=view—1: 

GÜSUB 32000:view=view-1: 

GOSUB 32000:GOSUB 28500 
28050 IF up=l THEN GOSUB 28500 
28060 IF do=l THEN view=view-l: 

GOSUB 32000:view=view-1: 

GOSUB 32000 

28090 IF po=54 THEN W0N=1 
28110 RETURN 

28500 IF view=l AND we=0 THEN GOTO 28900 

28510 IF view=2 AND no=0 THEN GOTO 28900 

28520 IF view=3 AND ea=0 THEN GOTO 28900 

28530 IF view-4 AND so=C THEN GOTO 28900 

28540 GOSUB 30000 

28550 IF po+di sp >55 OF: po+disp< 1 THEN 
GOTO 28900 

28560 po-po+disp:GOSUB 32000 

28570 RETURN 

28900 BOEDER 18 

28910 SOUND 2,300,25,15 

28920 FOR z = l TO 25 

28930 NEXT z 

28940 BOEDER O 

28950 RETURN 

28980 ’ >> >> > >>>INKEY> > >> >> >> >>> > > >>> > 

29000 1 e=0: r i =0: up=0: do=0: + i =0: ex =0: q=0 
290.10 CAL.L addr +1: a=PEEK <addr ) 


29020 

IF 

a 

i! 

CO 

O 
: 1 1 

tu 

i! 

242 

THEN 

1 e=l 

29030 

IF 

a 

=9 OR a= 

243 

THEN 

ri = l 

29040 

IF 

a 

==11 OR a 

=240 

THEN 

up = 1 

29050 

IF 

a 

= 10 0F: a 

= 241 

THEN 

do= 1 

29060 

IF 

a 

=88 OR a 

=224 

THEN 

i i = l 

29070 

IF 

a 

=13 THEN 

q= 1 



29080 

IF 

a 

=32 THEN 

ex = 

1 



29090 RETURN 

29480 •’ > > > > > > > > > >ROKE I NKEY8 > > > > > > > > > > 

29500 c=INT(addr/256):b=addr~256#c 

29510 RESTORE 29580 

29520 FOR n=addr TO addr+13 

29530 READ a:IF a=999 THEN a=b 

29540 IF a=998 THEN a=c 

29550 F'OKE n,a 

29560 NEXT n 

29570 RETURN 
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¿i 

O ero A 

DATA 187, 

208,50 

,999,998,201 

r~t 

9980 

? ' ./ 

<<< <<movimiento> >> >: 


0000 

IF view=l 

THEN 

disp =-1 

7 ; 

0010 

IF viaw=2 

THEN 

disp =-11 

"T 

0020 

IF view=3 

THEN 

diSp =1 


0030 

IF view=4 

THEN 

disp = l 1 

“T 

0040 

RETURN 



"T 

0980 

? < <* <* <* 

<<<ar r 

ow > > > > > > > > > > > 

"T 

1000 

sym=24 i 




1010 

IF view =0 

THEN 

view=4 


1020 

IF view=5 

THEN 

view =1 

T 

1030 

IF view=l 

THEN 

sym=24-2 


1040 

IF view=2 

THEN 

sym=240 

7 ; 

1050 

IF view=3 

THEN 

sym=243 


1070 

PRINT CHR 

$ < sym) 

|5 

rr 

1080 

RETURN 



7 ; 

1980 

.s.s 

< < < <map > >> > > > > > > > > > 


2000 

FOR n=21 

TO 25 



2010 

LOCATE 6 , 

n 


Tj 

2020 

PRINT SPC 

(11 ) : P 

RINT 

[T 

2030 

NEXT n 



~T 

2040 

yp=INT(po 

/ 11 ) 



2050 

xp=p o (11 

*yp) 


~T 

2.060 

IF xp=0 THEN xp 

= 11 :yp=yp-l 


2070 

PRINT CHR 

$ ( 23) ; 

CHR$(1); 


2080 

LOCATE xp 

+5,yp+ 

21 

7T 

2090 

GOSUB 31000 


“T 

2100 

PRINT CHR 

*(23) ; 

CHR$(0); 


2110 

RETURN 



7¡ 

2980 

7 '■ '! < <* <’ <* <* 

fuera) 


*T 

T.Oon 

•f in=TIME- 

start 



3010 

sc=INT(ti 

n/800) 


“T 

3020 

IF sc<=hi 

qh THEN high=sc 

77 

3030 

won=0:CLS 



~T 

13040 

PRINT:PRI 

NT "Tu 

¡ tiempo -fue ; 

pr 

3060 

PRINT:IF 

se < t ar 

g THEN 



PRINT "Lo 

conseguiste 1 ! " 

“7 

3070 

GOSUB 100 

00 



3490 

LOCATE 3, 

24:PRI 

NT "Prueba ot 


II 


33500 FOR z=l TO 3000:NEXT z 
33510 GOTO 1050 

Ahora una con •’MERGE' la subrutina 
s n t. r a d a d e c a r a c: t e r e s ’ „ 


se 


a ve 






7 

Duelo a las damas 



£7 micro es el árbitro 

La idea es muy sencilla: hay que deshacerse de todas las fichas 
del contrario saltando por encima de ellas, para lo cual deberá ha¬ 
ber una casilla vacante al otro lado. 

Al principio sólo se podrá mover en una dirección, hacia la par¬ 
te superior del tablero, si se hace con las blancas, y hacia la parte 
inferior con las negras Para mover una ficha hay que introducir: 
la letra, correspondiente a la columna en que se encuentre, y el 
número, correspondiente a la fila. Por último, y de la misma ma¬ 
nera, se indicarán los datos de la casilla de destino. 

Si no se puede comer (saltar por encima de una ficha contra¬ 
ria), el jugador avanzará un puesto una de sus fichas desde la ca¬ 
silla en que se encontraba hasta otra del mismo color. 

Cuando una ficha alcanza el extremo opuesto se convierte en 
una "dama" y con ella puede moverse arriba y abajo del tablero, 
con lo cual tiene mucho más poder. 
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La norma de que hay que comer obligatoriamente cuando es 
posible, no siempre está especificada en las reglas del juego. Al¬ 
gunos expertos mantienen que si uno no toma la ficha del adver¬ 
sario cuando puede, entonces pierde la suya. A esto se le llama 
«soplar una ficha». 

En este juego el ordenador no admitirá una instrucción de avan¬ 
ce de una ficha cuando sea posible comer, y el indicador conti¬ 
nuará mostrando el color del mismo jugador mientras este no haya 
terminado de comer. 

En cualquier momento se puede grabar el estado de una par¬ 
tida pulsando la tecla "Shift+S", o bien cargar una partida previa¬ 
mente cargada con "Shift+L". Durante una partida o después de 
cargar, se puede ver la partida paso a paso pulsando "Shift+3” y 
con "Space" tendremos este recorrido desde el principio. Si se pul¬ 
sa “Shift+3" una vez más, se volverá al punto de la partida en que 
se dejó y podremos continuar. 


19980 REM >>>> > >>>>PANTALLA<<<<< < << < 

20010 PAPER O: PEN 1: BORDEE 0:M0DE 1 

20020 WINDOW #1.2,25,1,24 

20030 PAPER #1,3:PEN #1,2:CLS #1 

20035 PAPER #2,2 

20040 TAG #2 

20070 L.$=STE I NGí (3,143) 

20080 L 1 $~STR I NGí (3,32) 

20090 Ní-Lí+L 1 í +L$+L 1 $-+L3+L1 í+L-l+L1 $ 
20100 POR N~1 TO 4 
20110 POR M=1 TO 3 
20120 PRINT #1,N$; 

20130 NEXT M 
20140 POR M~1 TO 3 

20150 PRI NT # 1, RIGHT* (N*, 21) +L..EFTÍ (N*, 3) 
20160 NEXT M 
20170 NEXT N 

20200 FOR N~2 TO 23 STEF' 3 

20210 LOCATE 1,N 

20220 L$=HEX$((26-N)/3,1) 

20230 PRINT L$; 

20240 LOCATE N+1,25 

20250 F'F:I NT CHRf (64+- (N+1) /3) ; 

20260 NEXT N 
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20270 WINDOW #3,27,3?,2, 15 
20280 P APER #3,3:PEN #3,i:CLS 
23980 REM >>>>>>>INTRODUCIR-; < 
24000 LOCATE #3.5,4:IF PLAY=1 
#3, "BLANCO" EL.SE F'RINT * 
24010 LOCATE #3,10,6:PRINT #3. 
24020 LOCATE #3,10.9:PRINT #3, 
24030 LOCATE #3,10,6 
24040 GOSUE 24500 
24050 FÍ--NÍ 
24060 LOCATE #3,10,9 
24070 GOSUB 24500 
24080 5$ = N$ 

24100 RETURN 

30980 REM > > >> >>>>>GRABARÍ<< <« 
31000 Z $(COUMT, 1)="FF" 

31O1O G$="":SOUND 2,200,20,15: 

100.40.15 

31020 FOR N-1 TO 8 
31030 FOR M~1 TO 8 
31050 MEXI M 
31060 NEXT N 
31065 H$="":I$="" 

31070 FOR N—1 TO 100 
31080 H$=H$+Z$(N,1) 

31085 If--I*+Z* (N, 2) 

31090 NEXT N 
3110O H$=H$+STR$(COUNT) 

31120 PRINT #9,G$ 

31130 PRINT #9,Hf 
31140 PRINT #9,1$ 

31150 CLOSEOUT 

31 160 SOUND 2,200,20,15:SOUND 
31200 RETURN 

319 8 O R E M > > > > > > > > > > C A R G A R <*< < < 

32000 G$-"" :SOUND 2,200.20,1‘ 

200.40.15 

32015 LINE INF'UT #9, G$ 

32020 LINE INF'UT #9,H$ 

32025 LINE INF'UT #9,1$ 

32030 GLOSEIN 
32035 FOR N=1 TO 8 
32040 FOR M=1 TO 8 
32070 NEXT M 
32080 NEXT N 


#3 

THEN PRINT 
3,"NEGRO " 

II II 

n II 


SOUND 2, 


2,100,40,1 
5: SOUND 2, 
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32090 FOR N=1 TO 100 
3210O 2 % (N,1>=LEFT$>H * ,2) 

3211O H$=RIGHT4(H$.LEN(H*)-2) 
32120 2*(N.2)=LEFT$(1$.2) 

32125 I $=R I GHTS (I S - LEN (I. * ) -2 ) 
32130 NEXT N 


32140 COUNT=VAL«H*) 

32150 SOUND 2 , 200 , 20 , 15:SOUND 2 , 200,40 , 1 

3216O GOSUB 2OOOO 

32170 6OSUB 23000 

321SO LOCATE #3,10,6 

32200 RETURN 


La subrutina tablero debe ser grabada separadamente del juego 
de Damas ya que se usará también en el siguiente capítulo (Pro¬ 
grama de Ajedrez). 


1 R E M < < < < < < < < < < D A M A 8 < < < < < < < < < < < < < 

2 REM 

3 C 1 ° 

50 SF'EED WRITE 1 
1OOO GOSUB 210OO 
1010 FOR N—1 TO 100 
1020 2í(N, 1>- " " 

1030 Z$(N,2>=" 

1040 NEXT N 

1 10 O G O S Ü B 2 O O O O s G O S U B 2 2 O O O 
1150 PRINT CHR*(23);CHE*(1);:GOSUB 23000 
1160 COUNT =1 
1200 GOTO 1900 
1600 GAM--0 
1610 FOR N=i TO 8 
1620 FOR 1 TO 8 
1630 IF Mf(N,M)="B" 

GAM=1 

1640 NEXT M:NEXT N 
1660 IF GAN =0 THEN 
1670 GAM=0 
1680 FOR N=1 TO 8 
1690 FOR M=1 TO 8 
1700 IF M«(N,M)="A" 

GAM= 1 

1710 NEXT M:NEXT N 
1730 IF GAN—O THEN GOTO 11000 


OR M*<N,M)="D" THEN 

GOTO 10000 

0F; N5 (N, M) ="C" THEN 
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1750 

RE T ¡JEN 


1900 

GOSUB 290' 

00 

1990 

REM >>>>> 

» SCREEN << 

2000 

GOTO 1900 


9900 

REM >>>>> 

> > NEGRO GANA 

1 O OOÍ. 

) CLS 



10050 GOTO 11050 

109S0 REM > > >>>>>> > BLANCO GANA<<<<< <<< < 
11000 CLS 

11010 LOCATE 15.10 : F'RINT "NEGRAS vencen 

I! 

11050 SOUND 2,300,25:SÜUND 2,200,25:SOUN 
D 2,100,25 

11060 LOCATE 5,24: F'R I NT "Quieres la re va 


ncha ( 

:s/N) ?" 





1 1070 

A$=INKE 

Yí: A¡*=UF'F'ER$ 

(Af) 



1 10S0 

IF Af=" 

S" THEN GOSUB 35 

000:GOTO 

1: 

00 






11090 

IF A$-" 

N" THEN GOTO 

RUN 



1 1100 

GOTO 11 

060 




20000 

INK 0,0 

: INK 1,26:1 

NK 2 

,14:INK 

‘T 

20290 

F'R INI # 

3,"DAMAS" 




20300 

F'R I NT # 

“T ii ___ ?l 

■— 1 n 




20310 

LOCATE 

#3,2,6: F'R I NT 

#3, 

"DESDE : 

ii 

20320 

LOCATE 

#3,2,9: F'RINT 

#3, 

"HASTA : 

, :i 

20500 

RETURN 





20980 

REM >>> 

■ > > >>INICIAL I 

ZAR< 



21000 

DIM M$< 

S,S) 




21010 

DIM ZSÍ 

100.2) 




21020 

SYMBOL 

240,0,0,0,0, 

15, 1 

”7 '“i cr nr 

•*— ' n ■*— : i ^ 

cr cr 
Jü 

21030 

SYMBOL 

241,0,0,0,0, 

240, 

254,255, 

2 0' 

21040 

SYMBOL 

242,1SS,175, 

170, 

170,122, 

15 

0 , 0 

21050 

SYMBOL 

243,61,227,3 

1 , 25 

5,254,24 

i 1 

, 0 

21060 

SYMBOL 

244,0, 1,9,37 

O O 

11S,125, 

•" cr 

21070 

SYMBOL 

245,0,128,144,23 

4, 198, 11 

ii 1 

q ■ 

B, 187 






21080 

SYMBOL 

246,191 , 175, 

170, 

170,122, 

15 

q („) 

21090 

SYMBOL 

/i ~7 i cr 

•¿.4 / , , 

31,2 

:55,254,2 

40 

0 , 0 






21250 

RETURN 





21980 

REM > > >I 

'■:> COMIENZO DEL JUEGO <<< 


22000 

FOR N = 1 

. TO 8 





en f_n 




62 Juegos sensacionales para AMSTRAD 


22010 FOR M=1 TO 8 
22020 M$(N,M)=" " 

22030 NEXT M 
22040 NEXT N 

22050 FOR N=1 TO S STEP 2 
22060 M$(1,N+l)="A" 

22070 M$(2,N)="A" 

22080 M$(3,N+l)="A" 

22090 M$ <8,N)="B" 

22100 m (7,N+l)="B" 

22110 M$(6,N)="B" 

22120 NEXT N 
22190 RETURN 

22980 REM >>>>»DIBUJA F10HAS<<<<<<<<<< 

23000 X=25:Y=390 

23010 FOR N=1 TO 3 

23020 FOR M=1 TO 8 

23030 C$=Mí(N, M) : C$=UPPER$ (Cí ) 

23040 IF C$=" " THEN GOTO 23100 

23050 IF C$="A" THEN C0L=3 ELSE COL=2 

23070 F'LOT O, O, COL 

23080 MOVE X,Y 

23090 GOSUB 23500 

23100 F'LOT 0,0,0 

23110 X=X+48 

23130 NEXT M 

23140 X=25:Y=Y-48 

23150 NEXT N: RETURN 

23490 REM *** FICHA *** 

23500 D$=CHR$(240)+CHR$(241) 

23510 D1$=CHR* (242) +CHF:f(243) 

23550 IF Cf="C" OR: C$="D" THEN D$=CHR«(2 
44) +CHR* (245) : D1$=CHR$ (246) +CIHRÍ (247) : HU 
FF=0 

23600 F'RINT #2, DT; 

23610 MOVE X,Y-16 
23620 F'RINT #2,D1Í; 

23750 RETURN 
24500 N$=" 11 
24510 A$=INKEY$ 

24520 IF Aí="Q" THEN RUN 

24524 IF A$="S" THEN GOSUB 31000 
24526 IF A$="L" THEN GOSUB 32000 

24525 IF A$="#" AND COUNT >1 THEN Z$(COU 
NT,1) ="FF" :GOSUB 35000 
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24530 A$=UPPER$(AS) 

24540 IF AUK"A" 0R AS>"H" THEN GOTO 2451 
O 

24550 NS=AS:SOUND 2,150,5,15:PRINT #3 ,N 
S; 

24560 AS=INKEYS 

24570 IF AS<"1" OR AS>"9" THEN GOTO 2456 
O 

24580 NS=NS+AS:SOUND 2,150,5,15:PRINT #3 
, AS; 

24590 RETURN 

24980 REM »»»>> NUEVE <<<<<<<<<<< 

25000 GOSUB 26000 

25090 R0=S1:C0=S:GOSUB 25200 

25100 MS(SI,S > =M$(F1,F) 

25110 IF Sl=l AND MS(1,S>= M B" THEN MS < 1, 
S)="D":HUFF=0 

25120 IF S1=8 AND MS<B,S>="A" THEN MS<8, 

S)="C":HUFF=0 

25125 SOUND 2,200,75,15 

25130 RO=S1:CO~S:GOSUB 25200 

25135 SOUND 2,100,10,15 

25140 R0=F1:CO=F:GOSUB 25200 

25150 M*(F1,F)=“ " 

25160 RETURN 
25200 X=25:Y=390 
25210 FOR N=1 TO 8 
25220 FOR N=1 TO 8 

25230 IF N~RO AND M=CO THEN GOSUB 25300 

25240 X=X+4S 

25250 NEXT N 

25260 X=25: Y=Y--48 

25270 NEXT N 

25230 RETURN 

25300 C*=M*<N,M) 

25310 IF CS=" " THEN RETURN 

25320 IF CS="A" OR CS= ,, C" THEN C0L~3 ELS 

E C0L=2 

25340 PLOT O,O,COL:NOVE X,Y 
25350 GOSUB 23500 
25360 RETURN 

25980 REM > >>> >>>>CONVIERTE<< <<< < < < < << 

26000 F'-ASC (LEFTS (Ff , 1 > ) 

26010 F~F-64 

26020 F1=VAL(RIGHTS(FS, 1) ) 
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F1-9—Fi 

S=ASC(LEFTÍ<3* . 1) ) 

S1 -VAL (F: I GHTí (Sí . 1 > ) 

RETURN 

REM > > > > > ; RE—CONVIERTE < < < < < < < < < 

Rí=CHRí(CGL+64) 

Rf=R$+STRí<9—LIN) 

RETURN 

R E M > > > > > > > > V A L_ ID A < < < < < < < < < < 

G O S U B 2 6 O O O: H U F F=O 
Pí="B" :P1 í~‘‘D" 

IF RLAY-2 THEN P$--"A M : Plf-="C" 

FOR y -1 TO 8 
FOR X-1 TO 8 

IF HUFF-1 THEN GOTO 27060 
IF Mí (V, X ) < >F‘í AND Mí (Y. X) < >p i í T 
HEN GOTO 27060 
27050 GOSUB 33000 
27060 NEXT X 
27070 NEXT Y 
27075 CHECK-1 

27080 Cí-Mí(F1.F) :Dí=Mí(Si.3> 

27090 IF Cí=" " THEN RETURN 

27100 IF < Cí“"A" OR Cí-"C" ) AND PLAY--1 

THEN RETURN 

27110 IF(Cí-"B" OR CÍ="D") AND PLAY=2 TH 
EN RETURN 

27120 IF Dí < > " " THEN RETl_lRN 
27130 IF Cí~”A" AND S1CF1 THEN RETURN 

2 714 O IF C í• = " B " A N D S1 > F1 T H E N R E T U R N 

27150 XD : -S~F: YD=--S 1 -F1 

2716O IF SGN < XD)K(XD)=1 AND SGN(YD)*(VD > 
=1 THEN GOTO 27490 

27170 IF SGN (XD) *XDOS6N(YD> *YD THEN RET 
URN 

271SO Xí-Mí(F1+(YD/2).F+(XD/2)) 

27190 IF <XÍ-”A" OR Xí=-"C" ) AND PLAY-2 
THEN RETURN 

27200 IF ( Xí “"B" OR X*="D") AND F'LAY” 1 T 
HEN RETURN 

27210 IF Xí=" " THEN RETURN 

27220 R0=Fl+(YD/2) : CO==F+(XD/2) : GOSUB 252 


2 fj 3 O 

26040 
26050 
26060 
2 6 O 7 O 
26080 
26090 
26100 
26110 
26120 
26980 
27000 
27005 

27010 
27020 
27030 
27040 
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27230 LIN=F1+(YD/2):C0L=F+(XD/2) 

27240 Mí(LIN,COL)=" " 

27250 GOSUB 26100 

27260 2í (COUNT, 1) =RÍ: 2$ (COUNT, 2) =RÍ 

27270 CQUNT=COUNT+1:GOTO 27500 

27490 IF HUFF=1 THEN RETURN 

27500 CHECK=0:RETURN 

27980 REM >> > > >> >>TURN<<< << << << < < 

28000 GOSUB 24000:HUFF=0 

28005 LOCATE #3,1,11:PRINT #3,SPG í12) 

28006 LOCATE #3,1,12': PR I NT #3, SPC (12) 
28010 GOSUB 27000 

28020 IF CHECK=0 THEN GOTO 28050 

28030 LOCATE #3,1,11: F'F;INT #3," MOVI NI EN 

TO NO VALIDO" 

28040 SOUND 2,300,50,15:GOTO 28000 
28050 GOSUB 25000 

23060 Zí(COUNT,1)= Fí:2$(COUNT,2)^SH 
28070 C0UNT=C0UNT+1;IF C0UNT=101 THEN CO 
UNT ~ 1 

28075 IF HUFF=0 THEN GOTO 28100 
28080 Y~S1: X~S: GOSUB 33000 
28090 IF HUFF=1 THEN 34000 
28100 HUFF=0:RETURN 

28980 REM »»»>AMBOS JUGADORES<<<<<<<< 

29000 PLAY=1 

29010 GOSUB 28000 

29020 GOSUB 1600 

29030 PLAY=2 

29040 GOSUB 28000 

29050 GOSUB 1600 

29060 RETURN 

31040 GÍ=GÍ+MÍ<N,M> 

31110 OF'ENOUT " ! DRAUGHTS " 

32010 ORENIN "¡DRAUGHTS" 

32050 Mí(N,M >=LEFTÍ(Gí,1) 

32060 GÍ=RIGHTÍ(Gí,LEN(Gí)-1) 

32980 REM >>>> >>>HUFF<<<<< << <<<< 

33000 HUFF=0 

33010 H1í ="A":H2Í ="C" 

33020 IF PLAY=2 THEN H1Í="B":H2f="D" 
33030 IF Y<3 OR M$(Y,X)="A" THEN GOTO 33 
080 

33040 IF X<3 THEN GOTO 33060 

33050 IF (Mí<Y—1.X-l)=H1$ OR Mí(Y-l,X-l) 
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=H2í) AND Mí(Y—2,X—2)=" " THEN HUFF=1 
33060 IF X >6 THEN GOTO 33080 
33070 IF ( Mí (Y-l, X+l) =H1Í OF: MÍ(Y-1,X+1 
)=H2í ) AND Mí(Y-2,X+2)=" " THEN HUFF--1 
33OSO IF Y>6 OF: Mí (Y, X) ="B" THEN GOTO 3 
3130 

33090 IF X<3 THEN GOTO 33110 

33100 IF (Mí(Y+l.X-l)=Hlí OR Mí(Y+l.X-l> 

=H2í) AND Mí(Y+2,X-2)= " " THEN HUFF=1 

33110 IF X >6 THEN GOTO 33130 

33120 IF (Mí<Y+1,X+l)=H1 í OR Mí(Y+1,X +1) 

=H2í> AND Mí(Y+2,X+2)-" " THEN HUFF~1 

33130 RETURN 

33131 RETURN 

339S0 REM >>>>>»»VETE OTRA VEZ<<<<<<<< 

34000 LOCATE #3,10,6 : F'RINT #3, Sí 

34001 -f a= 1 
34010 Fí=Sí 

34020 LOCATE #3. 10,9: F'RINT #3," " 

34030 LOCATE #3,10,9 
34040 GOSUB 24500 
34050 Sí~NÍ 

34060 LOCATE #3, 1 11: F'RINT #3,SF'C<12) 
34065 LOCATE #3,1,12:PRI NT #3,SPC(12) 
34070 GOSUB 26000:GOSUB 27075 
34OSO IF CHECK=0 THEN GOTO 34110 

34090 LOCATE #3, 1, 11: F'RINT #3," MOVI MI EN 
TO NO VALIDO" 

34100 SOUND 2,300,50,15:GOTO 34020 
34110 GOSUB 25000 

34.120 Zí (COUNT, 1) =Fí : Zí (COUNT, 2) “Sí 
34130 COUNT=COUNT+Í:IF C0UNT=101 THEN CO 
UNT = 1 

34140 Y=S1:X=S:GOSUB 33000 
34150 IF HUFF-1 THEN GOTO 34000 
34160 HUFF=0: IF F'LAY= 1 THEN F'LAY-2 
34163 GOTO 2S050 

34980 REM >>> >>>>>REPETIC10N<< < < < << < < 

35000 COUNT=0:PLAY=1 

35010 GOSUB 22000 

35020 GOSUB 20000:GOSUB 23000 

35030 COUNT =C0UNT+1 

35040 IF Zí(COUNT.1)="FF" THEN GOTO 3550 
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35050 F$=Zí((COUNT,1):Sí= ZÍ(CQUNT,2) 
35060 GOSUE 26000:GOSUE 25000 
35065 IF F$=5i THEN GOTO 35030 
35070 COUNT-COUNT+í 
3 5 O 8 O A í =IN K E Y % 

35090 IF A$=" " THEN GOTO 35080 
35095 PLAY=2 

35100 IF A$="# M THEN GOTO 35500 

35110 IF Z$ (COUNT, 1)~"FF" THEN GOTO 3550 

O 

35120 Fí-Zí(COUNT,1):S«=Z*(COUNT,2) 

35130 GOSUE 26000:GOSUE 25000 
35135 IF Fí=Sí THEN GOTO 35030 
35140 Aí=INKEYÍ 

35150 IF Aí="" THEN GOTO 35140 
35155 F'LAY=1 

35160 IF Aí="#" THEN GOTO 35500 
35170 GOTO 35030 
35500 IF F'LAY=1 THEN GOTO 29000 
35510 GOTO 29030 


Ahora una con ’MERGE’ la subrutina de 



8 

Duelo al ajedrez 



Ajedrez controlado por el Micro 

Es posible que a muchos les sorprenda saber que, antes de que 
llegara la era de los ordenadores y del programa de microordena¬ 
dor, se jugaba al ajedrez con dos seres humanos. 


Ya que programar un juego de ajedrez «inteligente» ocuparía 
en sí mismo un libro entero, nos hemos limitado a hacer un pro¬ 
grama para uso y disfrute de cualquiera a quien le guste jugar al 
ajedrez o aprender más sobre él. Posiblemente, los clubs de aje¬ 
drez encontrarán este programa de alguna ayuda. 

El programa puede utilizarse simplemente como sustituto de 
un tablero de ajedrez con sus piezas. 

Los dos jugadores introducen los movimientos en la forma ha¬ 
bitual en que se hace en ajedrez. Sin embargo, se han incluido al¬ 
gunas posibilidades adicionales con el fin de incrementar las ven¬ 
tajas respecto del tradicional tablero con sus piezas. 












Duelo aI ajedrez 69 


El ordenador controla la validez de todos los movimientos y 
solo acepta: movimientos del color que juega en ese momento, de 
casillas ocupadas o hacia casillas a las que la pieza movida pueda 
acceder. Las piezas que se comen durante el juego se retiran del 
tablero. 

El programa no indica el jaque ni el mate, pero sí permitirá que 
haya jaques. Serán los humanos quienes tengan que darse cuenta. 

La opción de comer «al paso» no está explicitada en el progra¬ 
ma, pero el jugador puede retirar la pieza y tomar el peón al mo¬ 
ver si es preciso. 

El programa sí contempla el enroque y, por tanto, las posicio¬ 
nes del rey y la torre deben ser las correctas, sin otras piezas en 
medio, pero también funcionará la rutina en el caso de que una 
de las dos piezas se haya movido, siempre que en el momento del 
enroque estén en la posición correcta. Tampoco se detecta el mo¬ 
vimiento que pone al rey en jaque, por lo tanto esta y las otras po¬ 
sibilidades deben ser controladas por los jugadores. 

Una característica importante es la de poder establecer un ta¬ 
blero que plantee problemas de ajedrez, o variantes o juegos, ya 
que se pueden almacenar y analizar paso a paso hasta 100 juga¬ 
das. El juego puede reanudarse desde cualquier punto cuando se 
ha grabado previamente. Los peones se convierten automática¬ 
mente en reinas cuando llegan a la línea adecuada. 


Resumen de comandos y opciones 

1. Establecer un tablero, introducir "S" como respuesta a la 
pregunta "Deseas establecer un tablero?", y a partir de ahí intro¬ 
ducir las piezas una a una pulsando una sola letra. Para avanzar 
pulsar el espacio. Los códigos para las blancas son: 

p = peón t = torre c = caballo 

r = rey d = dama a = alfil 

(Las negras igual pero con mayúsculas.) 

Las blancas se colocan siempre en la parte superior del tablero. 

Retirar una pieza. Pulse "Shift+R" e introduzca la posición 
de su casilla. El juego continúa con el siguiente jugador. 
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3. Enroque. Pulse "Sh¡ft+0" y luego la dirección D, I (derecha, 
izquierda). 

4. Guardar el juego. Pulse "Shift+S" y tenga la grabadora en 
posición de grabar ya que los mensajes para hacerlo no aparecen 
en pantalla. 

5. Cargar un juego. Pulse "Shift+L" y luego "PLAY". Así car¬ 
gará el primer fichero encontrado. 

6. Reproducción de partida paso a paso. Pulse "Shift+3". Con 
la tecla espaciadora se pasa jugada por jugada y con "Shift+3" 
otra vez, se vuelve al modo normal. 

7. Iniciar una partida. Pulsar "Shift+Q". 


1 REM >>>>>>> AJEDREZ <<<<<<<<< < 

2 REM 

10 CALL &BB03: SPEED WRITE 1 

500 SYMBOL 240,1,3,29,63,63,57,28,7 

51O SYMBOL 241,0,128,56,252,252,156,56,2 

24 


520 

SYMBOL 

242, 

7,7,4,31,16,127 

530 

SYMBOL 

243, 

224,224,224,248 

0,2 

54 



540 

SYMBOL 

244, 

1,19,81,91,109, 

5 5 0 

SYMBOL 

245, 

128,200,138,218 

16, 

240 



560 

SYMBOL 

246, 

1,1,7,14,28,28, 

570 

SYMBOL 

247, 

128,128,224,240 


f -\ tnr /i -T 


40,224 

580 SYMBOL 248,0,0,3,7,15,31,?,3 
590 SYMBOL 249, O, 192,64.224, 176,20É3,232, 
120 

600 SYMBOL 250,O,O,25,25,25,31,12,15 

610 SYMBOL 251,0.0, 152,152,152.248,240,2 

40 


620 

SYMBOL 

252 , 0,0, 

0,0,0, 3 

“7 "7 

^ f 5 * 

630 

SYMBOL 

253,0,0, 

0,0,0 , 1 

92,224,224 

640 

SYMBOL 

254,5,4, 

T ^ rr.r r-_, 
n x !• u --‘ t 

31,16,31 

650 

SYMBOL 

255,224, 

224,192 

, 240,112,248, 

.6. D 
K ~‘ * 

48 




660 

PRINT 

CHRí(23); 

CHR*(1) 

* 


1000 OLEAR:GOSUE 21000 
1010 FOR N=1 TO 100 
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1020 Z$<N,1)=" " 

3.030 Z* CN, 2) — " 

1040 NEXT N 
13.00 GOSUB 20000 

1110 LOCATE 27,18: F'RINT "DESEAS COLOCAR" 
1115 LOCATE 27,20:PRINT "UN TABLERO?" 

1120 A$ — I NKEYf : A$—UPPERÍ ( A$) 

13.30 IF A$="S" THEN GOSUB 30000: IF CHECK 
=0 THEN GOTO 1170 ELSE GOTO 1100 
1140 IF A$< >"N" THEN GOTO 1120 
115O GOSUB 22OOO:GOSUB 23OOO 
1170 LOCATE 27,18:PRINT BPC(15): 

1 1SO LOCATE 27,20: PRINT 3PC <12); 

1190 PR I NT CHR-Í < 23) ; CHR* < 1 > ; 

1300 C0UNT=1 
15OO GOSUB 29OOO 
2000 GOTO 1500 

20000 INK 0,0 :INK 1,26:INK 2,6:INK 3,3 
20290 PRINT #3,"AJEDREZ . " 

20300 PRINT #3, "-" 

20310 LOCATE #3,2,6:PRINT #3,"DESDE:-" 
20320 LOCATE #3,2,9:PRINT #3,"HASTA:-" 
20500 RETURN 

20980 REM >>>>>>INICIALIZAR<<<<<<<<< 

21000 DIM ! v 1$ <8,8) :DIM X * <8,8) 

21010 DIN Zí <100,2) 

21020 K$=CHR$<240)+CHR$< 241) 

21030 l< 1 $=CHR$ (242) +CHRf- < 243) 

21040 Q*=CHR$<244)+CHR*<245) 

21050 01 $=CHR*<242)+CHR* <243) 

21060 B*=CHR$<246)+CHR$<247) 

21070 B1 $=CHR$ < 242) +CHR$- (243) 

21080 T$=CHF:$ (248) +CHR$(249) 

21090 T1$=CHR$(242)+CHR$(243) 

21100 R$=CHR$(250)+CHRT(251) 

2111O R1*=CHR$<242)+CHR*<243) 

21120 P$-CHF:f (252) +CHR$ (253) 

21130 P1*=CHR*(254)+CHRÍ(255) 

21250 RETURN 

21980 REN >>>>>>>COMIENZO DEL JUEGG<<<<< 
22000 FDF: N= 1 TO 8 
22010 FOF; M=1 TO 8 
22020 M$(N,M)=" " 

22025 X$(N,M)=" " 
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2 A .i \J . ¿« Kj 

NEXT M 



22040 

NEXT N 



22050 

FOF; N=1 TD 

O 


22060 

mí ( 2 . n ) -" F' 

*» s y<* ( 

2,N> ="P" 

22070 

Mi(7.N)="p 

" : Xi ( 

7 , N) =•" p " 

22080 

NEXT N 



O í"i 

RFSTORE 22 

250 


22100 

FOR N=1 TO 

r\ 

UJ 


22110 

READ Aí 



22120 

mí i 1 .N)~Ai 



"¡ •“7« ñ -“7. nr 

Xí < 1.N)“Ai 



22130 

Ai“LOWERÍ < 

Ai) 


22140 

Mi(3,N >“Ai 



22145 

Xi< 3,N)“Ai 



22150 

NEXT N 



22160 

FOR N=1 TO 

100 


22170 

Z*. ( im „ 1 ) = " 

" : 2 i 

(N, 2) = " 

22130 

NEXT N:RETURN 


22250 

DATA R, T, B 

, Q, K, 

B, T, R 

22980 

REM <<<<DIBUJO 

DE LAS RIEZASC 

23000 

X-25 íY=390 



230 í 0 

FOR N=1 TO 

8 


23020 

FOR M~1 TO 

3 


23030 

Oí“Mi(N.M> 



23040 

IF Ci“" " 

THEN 

bu 1 u 23100 

23050 

IF Ci<"a" 

THEN 

COL-2 ELSE COL 

23060 
R 1 

IF TEST ( X- 


) ~3 THEN COL==D 

'i ) 1 1 í 

PLOT 0.0,0 

GL 


23080 

NOVE XY 



t f\ r -~ n 

onsi IB 2350 

A 


• 73 1oí :■ 

PLOT 0,0,0 



1 -i a 

X=X+4S 



23130 

NEXT M 



23 i 40 

X“25:Y“Y-4 

ri 1 

K.J 


23150 

NEXT N 



T •'/ r ~‘ O 

RETURN 



23490 

REM * * i -Y * * 

* d T p 

•r- 1 j. 

ZA ******** 

23500 

CÍ=UPPER$( 

) 


23510 

IF Ci“" K" 

THEN 

DÍ=KÍ: D1í “K1i 

2 5 2 0 

IF CÍ“"D" 

THEN 

DÍ=QÍ: D1Í=QÜ 

. •* 5 c* O 

IF Ci' = "B" 

THEN 

D i = B i : D1 i = B1 i 

23540 

IF C$-"T" 

THEN 

Di=T$ : D1Í=T1i 

23550 

IF Ci="R" 

THEN 

Di=Ri : D1i=R1i 

23560 

XP C$=r "P n 

THEN 

Dt=Pi: D1 Í=F' 1 i 


XO 
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23600 

F'RINT #2,D$: 


23610 

MU’- 

7E X,Y-16 


23620 

F'RINT #2, D1 $ : 


"3 ~r i~; 

RE' 

TURN 


24055 

IF 

CAS”1 THEN RETURN 


24500 

m-- 

="":CAS=0 


24510 

A$ : 

= INKEYÍ 


24520 

IF 

A$="0" THEN GOTO 

1 I'infi 

24522 

IF 

h$= !, 0" THEN GOSUB 

26500 

24524 

IF 

CAS=1 THEN RETURN 


24525 

IF 

AI="S" THEN GOSUB 

31000 

24530 

IF 

A$="L" THEN GOSUB 

32000 

24535 

IF 

A$="#" THEN Z S(COUNT, 1)="FF":GO 

TO 35- 
24540 

“l (") í“l 

IF 

Af-- " R " THEN GOTO 

25500 

a i::r a nr 
o:!. *+ U '"I -_J 

A$ : 

=UF'F'ER$ (A*) 


24550 

IF 

A$< "A” OR A i- > " H " 

THEN GOTO 2451 

0 

24555 

m 

“Ai-: SOUND 2,150,5 

,15: F'RINT #3, N 

24560 

A $ : 

-1 NK.EYi 


24570 

IF 

A$<"1” OR Ai>"9" 

THEN GOTO 2456 


O 

24580 NÍ=NÍ+Ai: SOUND 2,150,5,15: F'RINT 
#3,Ai; 

24590 RETURN 

24980 REM >>>>>> HUEVE <<<<<<<<<< 

25000 GOSUB 26000 
25030 COUNT=CQUNT+1 

25040 IF Z«(COUNT,1>="FF" THEN GOTO 3550 
O 

25080 SOUND 2,300,75,15 
25090 RÜ”S:L: CO=-Ss GOSUB 25200 
25100 m (S1,8) -m (F1, F) 

25110 IF F'LAV” 1 AND F1 = 1 AND M$ (F1 , F) = " p 
" THEN Mi<F1,F>="q M 

25120 IF PLAY=2 AND Fl=8 AND M$(F1,F)="P 
" THEN Mi (F1 , F) = ,l Q" 

2 513 O R O=S1 : C O - S: G O S U B 252O O 
25140 SOUND 2,100,20.15 
25150 RO=F 1: CO==F: GOSUB 25200 
25160 Mi(F1,F > =" " 

25170 RETURN 
252O O X=2 5: Y=3 9 O 
25210 FOR N=1 TO 8 









t,n ui r.n 
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25220 FOR M=1 TO 8 

25230 IF N=RO AND M=CO THEN GOSUB 25300 
25240 X=X+43 
25250 NEXT M 

25270 NEXT N 
25280 RETURN 
253O O C$=M $ (N. M> 

25310 IF C$=" ' " THEN RETURN 
25320 IF C$<"a" THEN C0L=2 ELSE C0L=3 
25330 IF TEST <X—2,Y+2)=3 THEN CÜL=COL Xü 
R 1 

25340 PLOT O,O,COL:NOVE X , Y 
25350 GOSUB 23500 
25360 RETURN 
25480 REM 

25490 REM ****** RETIRAR PIEZA **** 
25500 SOUND 2,300,40,15: SOUND 2,400,50, 
15 

2551O WINDOW #4,35,40,22,24 
25515 PAPER #4,0:PEN #4,1 
25520 INPUT #4,"Pieza " , F$ 

25525 F$=UPPER$<F$> 

25530 S$="A1":GOSUB 26000 
25540 GOSUB 23000 
25550 M$(F1,F)=" " 

25560 Z$(COUNT, 1)=F$: Z$ <COUNT,2)~F$ 

25570 COUNT=COLJNT +1 

25580 IF COUNT =101 THEN CQUNT=1 

25590 CLS #4 

25600 GOSUB 23000 

610 IF F’LAY = 1 THEN PLAY=2: GOSUB 28000 
620 GOTO 1500 

980 REM >>>>>> CONVERTIR <<<<<<< 

26000 F= ASC (LEI- 1 $ (F*., 1) ) 

260lo F=F—64 

26020 F1 = VAL (RI GHTf- (F$, 1) ) 

26030 F1=9—F1 

26040 3= ASC(LEFT$(Sí,1)) 

26050 S=S-64 

26060 S1= VAL(RIGHT % (S$,1)) 

26070 SI=9—SI 
26080 RETURN 

26100 F*=CHR*(F+64)+HEX$(9-F1,1) 

26130 S$=CHR$(S+64)+HEXÍ(9-S1,1) 
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26 i 50 Z T i COL)NT, 1) =Ff 
26160 ZT \ COUNT,2)=ST 
2617O COUNT=C0UNT+1 
26180 RETURN 

26480 REM >>>>>>> ENROQUE <<<<<<<<<< 

26500 F'RINT #3, "O"; 

26505 SOUND 2,600,25,15:ROUND 2,400,25,1 

5:SOUND 2,200,25,15 

26510 AT=INKEYT:AT =UPPERT(A*) 

26520 IF AT< >"D" AND A$<>'T" THEN GOTO 2 
6510 

26530 PRINT #3,AT 

26532 IF A$="D" THEN AT="R H 

26534 IF AT=" I" THEN A$="L" 

26535 NT="C"+AT: CAS=1: RETURN 

26540 ST="AS": AT=RIGHTT<FT,1): GOSUB 26 
000:CHECK=1 

26545 IF (PLAY=1 AND AT="L" AND Ml(8,l)< 

>"r") OR <PLAY= 1 AND Af■= "R" AND MT (S, 8) < 

> " r") THEN RETURN 

26550 IF (PLAY=2 AND A*="L" AND MT (1, 1)< 

>" R") GR (FLAY-2 AND AT="R" AND MT(1,8>< 

>"R") THEN RETURN 

26560 IF F'LAY= 1 AND NT (8,5) < >" k " THEN RE 
TURN 

26570 IF PLAY=2 AND NT(1,5)<>"K" THEN RE 
TURN 

26575 AU~1:EN=7:IF PLAY=1 THEN LIN=8 ELS 
E LIN=1 

26580 IF AT="L" THEN AU=~1:EN=2 

26590 FOR N=5+AU TO EN STEP AU 

26600 IF NT(LIN,N)< >" " THEN N=EN:RETURN 

26610 NEXT N 

26620 F1=LIN:F=5:S1=F1:S=5+2*AU 

26630 GOSUB 23000 

26640 NT <F1,F> = " ":MT(SI,S)="k" 

26645 GOSUB 26100 

26650 IF LIN=1 THEN NT(SI,S)="K" 

26655 ZT(COUNT,1)="CC":ZT(COUNT,2)="CC": 
COUNT=COUNT +1 

26660 Fl-LIN:F=EN+AU:S1=F1:S=5+AU 
26670 NT(F1,F)=" ":NT(SI,S)="r" 

26675 GOSUB 26100 

266SO IF LIN=1 THEN MT(SI,S)="R" 

26685 GOSUB 23000 
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26690 CHECK=G: RETURN 


¿2 C ; O 

REM 



VALIDA <<<<■ 


27000 

G Ü b 

UB 26000 



270 1 O 

CHECK=1 




2. 7 O 7* C ) 

C'$~ 

m <F 1 , 

F) : D$ 

=m <si. s> 


27030 

I r 

~ -± z - < 1 i* 

THEN 

RETURN 


27040 

IF 

Q 1 ! •? IJ 

AND 

PLAY=2 THEN 

RETURN 

27050 

IF 

Cí<“a" 

AND 

PLAY=1 THEN 

RETURN 

27055 

IF 

D$~" " 

THEN 

GOTO 27100 


27060 

IF 

D$ > " 7 ' 

AND 

PLAY=1 THEN 

RETURN 


T P 

DSK"a" 

AND 

PLAY=2 THEN 

RETURN 

27100 

c$~ 

UPFERf 

(C$) : 

D$=UPPER$ (Dí 

K ) 

27110 

IF 

D$= "!< " 

THEN 

RETURN 


27150 

IF 

C Í 5 = "P" 

THEN 

GOTO 27300 


27160 

IF 

C$="R" 

THEN 

GOTO 27400 


27170 

IF 

C$= " T " 

THEN 

GOTO 27500 


27180 

IF 

Q~ " jg ! » 

THEN 

GOTO 27600 


27 i 90 

IF 

C$= " Q" 

THEN 

GOTO 27700 


27200 

i r 

C$~"K" 

THEN 

GOTO 27800 


27230 

CHE 

CK=0 




27240 

IF 

C'$~ " K " 

OF; C 

Í = "P" DF: CÍ-= 

= "T" THEN 


RETLJRN 

27250 SGSUB 27900 
27260 RETURN 

27290 REM * * % % PEON * * * 

27300 IF PLAY= 1 AND SI >F1 THEN RETURN 
27310 IF PLAY=2 AND F1>S1 THEN RETURN 
27320 DI S=SGN (S1 -F1 > * (S1 -F1) : IF DIS~1 Tl-I 
EN GOTO 27375 

27330 IF DIS>2 THEN RETURN 
27340 IF SOF THEN RETURN 


"7 ~r cr .-2 

-u- .• 

IF PLAY=2 AND 

h 1=2 

AND 

m (3 

,F)=" " 

THEN 

GOTO 27335 





27360 

IF FLAY=1 AND 

F1 =7 

AND 

m (6 

, F)=" " 

THEN 

GOTO 27385 





“7 “T ”7 ,**•, 

RETURN 





27373 

IF S=F AND D$= 

¡I II 

THEN 

GOTO 

r\ -r c" cr 

JÍ. ! UJ 

7777 

IF SGN(S-F )% (S 

-F) = 

1 AND 

1 Dí< 

>" "THE 


N GOTO 27335 

27380 RETURN 

27335 GOTO 27230 

27390 REM * * * TORRE * * * 

27400 IF FlOSl AND F< >S THEN RETURN 

27435 GOTO 27230 

27490 REM * * % CABALLO % % % 
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27500 

n (“1 

IF S1=F1+2 

AND S=F—1 

THEN 

GOTO 

~7 nr 
uL , _J 

27510 

IF Sl=Fl+2 

AND S=F+1 

THEN 

GOTO 

275 

8 o 

f ~\ -y rr -““i /“•, 

IF B1=F1—2 

AND S=F—1 

THEN 

GOTO 

~7 cr 

80 






-7 !=•;■?(-) 

IF S1=F1-2 

AND S=F+1 

THEN 

GOTO 

275 

6 o 

27540 

IF Sl-Fl+1 

AND S=F—2 

THEN 

GOTO 

275 

80 






27550 

80 

IF S1=F1+1 

AND S=F+2 

THEN 

GOTO 

__ n _ 
/ -_J 

27560 

IF Sl-F1—1 

AND S~F-~2 

THEN 

GOTO 

275 

80 

27570 

SO 

IF S1=F1-1 

AND S--F+2 

THEN 

GOTO 

275 

27575 

RETURN 





27580 

GOTO 27230 





27590 

REM * * * 

ALFIL % # 

* 



27600 

XD--F-S: XD= 

SGN(XD )% X D 




27 610 

YD=F1-S1:YD=SGN<YD ) * 

YD 



27620 

IF XDOYD 

THEN RETURN 




27635 GOTO 27230 

27690 REM * * * REINA * * * 

27700 XD=F-S:XD=SGN(XD)*XD 

27710 YD=F1-Si:YD=SGN(YD)*YD 

27720 IF XD-YD THEN GOTO 27785 

27730 IF FlOSl AND F< >S THEN RETUR'N 

27785 GOTO 27230 

27790 REM * * * REY * * * 

27800 IF SGN(Fl-Sl)* <F1-S1)<>1 AND SGN(F 
-S) * (F-S) < > 1 THEN RETUR'N 
27885 GOTO 27230 

27890 REM * * * CONTROL DE MOVIMIENTO * 
* 

27900 ND=0:MD=0 

27910 IF F1>S1 THEN ND=-1 

27915 IF S1>F1 THEN ND=1 

27920 IF F>S THEN MD=-1 

27925 IF S>F THEN MD=1 

27930 CN=F1:CM=F 

27940 CN=CN+ND:CM=CM+MD 

27950 IF CN-S1 AND CM=S THEN RETUR'N 

27960 IF m (CN.CM)< >" " THEN CHECK=1:RET 

URN 
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27970 GOTO 27940 

27980 REM >>>>>>> CAMBIAR <<<<<<<< 

28000 GOSUB 24000 

28005 LOCATE #3,1,11:PRINT #3," 

II 

28010 IF CAS= 1 THEN GOSUB 28540 EL_SE 6 
OSUB 27000 

28020 IF GHECK=0 THEN GOTO 28050 
28030 LOCATE #3,1,11:PRINT #3," MOVIMIEN 
TO NO VALIDO" 

28040 SOUND 2,500,40,15,O,O,20:GOTO 2800 
O 

28050 IF K=1 THEN GOTO 28090 
28055 2$(COUNT,1)=F$ 

28060 Z$(COUNT,2)=S$ 

28070 C0UNT=C0UNT+1:IF C0UNT=101 THEN CO 
UNT = 1 

28080 GOSUB 25000 


28090 

RETURN 


28980 

REM >>> 

>>> AMBOS JUGADORES <<<< 

29000 

PLAY=1 


29010 

GOSUB 2 

8000 

29020 

PLAY=2 


29030 

GOSUB 2 

8000 

29040 

RETURN 


29980 

REM >>> 

J UGADA PRE-ESTABLEOIDA 

30000 

X=t25 : Y= 

390 

30010 

FOR N=1 

TO 8 

30020 

FOR M=1 

TO 8 

30030 

SOUND 2 

. 250,20,15 

30040 

Mí(N,M) 

= " " . x$(N,M)= " " 

30050 

GOSUB 3 

0500 

30130 

PLOT 0, 

0,0 

301 40 

X=X+48 


30150 

NEXT M 


30160 

X=25:Y= 

Y-48 

30170 

NEXT N 


30180 

II 

LOCATE 

27,18:PRINT "ESTA BIEN ? 

30190 

L U C A T E 

27,20: PRINT SF'C(14) 

30200 

A$=INKE 

Y i: A i—U P F' E R i (Ai) 

30210 

IF Ai =" 

S" THEN CHECK=0:RETURN 

3 O aC * L 0 

IF Ai=" 

N" THEN CHECIOl : RETURN 

30230 

GOTO 30 

r ? 

30490 

REM * * 

* * INTRODUCIR * t % 
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30500 

F'LQT 0,0,2 


30510 

NOVE X , Y: F’F; I NT 

#2, 

30520 

Di~ : INKEYi: C* 

=UF'PER$(Dí) 

30522 

IF D$~ "" THEN 

GOTO 30520 

30525 

GOSUB 35600 


30530 

IF D$="" THEN 

GOTO 30520 

30535 

CT"UF'F'ERT (Di) 


30540 

PLOT 0,0,2 


30550 

NOVE X, Y: F'RINT 

#2, 

30560 

IF C*<>"R" AND 

C$<>"N" AND 


AND C$< >"Q" AND C$<>"K" AND CíO"P" THE 
N RETURN 

30570 SÜLJND 2,100,20,15 
30580 IF D$="n" THEN D$="t" 

30590 IF D*="N M THEN D*="T" 

306d) 0 M $ (N, M > ~ D % 

30605 X$(N,M)=D$ 

30610 C¡fc=D* 

30620 IF C$<"a" THEN CDL=2 EL.SE C0L=3 
30630 IF TEST(X-2,Y+2)-3 THEN C0L=C0L Xü 
R 1 

30640 P L- 0 T 0, 0, C 0 L 
30650 NOVE X,Y 
30660 GOSUB 23500 
30670 RETURN 

310 4 O G $=G $+M $ (N. M > + X $ (N, M) 

32010 ÜF'ENIN " ! AJEDREZ " 

32050 m (N,M)=LEFT$(G$,1):Xí(N,M)=MIDi < G 
i,2,1) 

G$=RIGHTS(6$,LEN(Gí)-2) 

REM >>>>>>> VOLVER A JUGAR <<<<<< 
C0UNT=0: F'LAY = 1 
FOR N=1 TU 8:F0R M=1 TO 8 
m (N, M> =X$ (N, M) 

NEXT MsNEXT N 
GOSUB 20000:GOSUB 23000 
COUNT-COUNT +1 

IF Z$(COUNT.1)”"FF" THEN GOTO 3550 

F$=Z$(COUNT,1):S$=ZS(COUNT,2) 

GOSUB 26000:GOSUB 25000 
COUNT=COUNT +1 

IF Z$(COUNT,1» = "CC" THEN GOTO 3503 
A*=INKEY$ 


32060 
34980 
35000 
35010 
35015 
35020 
35025 
35030 
35040 
O 

35050 

35060 

35070 

35075 

O 

35080 
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35090 

IF A$- 

»> " then 

;:¡ G T ü 

35030 

35095 

P LA Y2 




35100 

I F A 3: — 

'■#" THEN 

GOTO 

35500 

351 10 

IF Z$ ( 

COL) NT, 1 > 

= "FF" 

THEN GOTO 

35120 

p ± — 7 ± . 

LOUNT.1> 

- £ ± :::: 2 

i (CO'JNT, 2) 

35130 

GOSlJB 

26000iGO 

SUB 2 

5000 

35135 

IF Z*< 

C0UNT+1, 

1 ) " f 

C" THEN 00 

0UNT+ 

2: GOTO 

35110 



35140 

A5>=INfc 

EY* 



35150 

IF Aí = 

"" THEN 

GOTO 

3514 0 

■re -I cr cr 

F LA Y--1 




35160 

IF A$= 

THEN 

GOTO 

35500 

35170 

GOTO 3 

5030 



35500 

IF PLAY=1 THEN 

GOTO 

1500 

35510 

GOSLJB 

28000;GO 

TO IT 

00 

35555 

IF Cf= 

"Z" THEN 

F:ETL 

F:N 

35600 

REM :> > > 

>TRADUCE 

A Cf 

ST El LLANO < 

35610 

IF D$= 

"A" THEN 

DT : ” 1 

B":RETURN 

35620 

IF Dí = 

"a" THEN 

D*=' 

b":RETURN 

35630 

IF D*= 

"T" THEN 

D$=‘ 

R";RETURN 

35640 

IF D*- 

"t" THEN 

D$~ 1 

r":RETURN 

35650 

IF D'i = 

"C" THEN 

Df~ : 1 

N":RETURN 

35660 

IF D$= 

"c" THEN 

D$=‘ 

n":RETURN 

35670 

IF D$= 

"R" THEN 

D$=' 

K":RETURN 

35680 

IF D$ = 

"r" THEN 

D$~ 1 

k ":RETURN 

35690 

IF = 

"D" THEN 

D$=' 

Q":RETURN 

35695 

IF DT- 

"d" THEN 

D$=' 

q":RETURN 

35700 

IF DT-- 

"P" then 

D$=' 

P":RETURN 

35710 

IF D$= 

"p" THEN 

Df=' 

p":RETURN 

35720 

DS ="Z" 

: RETURN 




Ahora una con ’HEROE’ la subrutina de 
’ tabl ero’ » 







Un juego de estrategia para dos 


Hasta donde yo sé, esta es la primera aplicación del «Simón» a un 
ordenador, pues es un juego que normalmente se practica con lá¬ 
piz y papel. 

El «Simón» fue inventado por un chico llamado Gustavo Sim- 
mons y hemos decidido llamar Gustavo a esta versión del juego 
para ordenador porque creo que suena a más importante que su 
primo de papel. 

Este juego consiste en que los jugadores dibujen alternativa¬ 
mente una línea entre dos puntos. El primero que forme un trián¬ 
gulo de su propio color, partiendo de los puntos iniciales, es el per¬ 
dedor. El truco está en forzar al contrario a dibujar el triángulo 
fatal. 


El ordenador se encarga de establecer turnos y colores y deci¬ 
dirá quién es el vencedor cuando se forma el triángulo. 
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Las líneas se dibujan moviendo la cruz intermitente en el sen¬ 
tido contrario o en el mismo de las agujas del reloj, mediante las 
flechas de derecha e izquierda o con un joystick. Cuando la cruz 
está en el primer punto desde el que debe partir la línea sólo te¬ 
nemos que pulsar la tecla "COPY". Un pitido nos indica que el pun¬ 
to de origen ha sido aceptado. A continuación el cursor salta al 
punto de llegada y cuando se pulsa "COPY" la línea se dibuja. Si 
se intenta hacer una línea no válida sonará un pitido y habrá que 
volver a dar el punto inicial y final de la línea. 

El juego no puede terminar en empate y en principio no tiene 
ventaja el que empieza a mover. ¡Este juego es muy bueno para 
desarrollar visión espacial! 


1 7 < < <<< < < < < < < < austavo>> > >>> > > > > > 

2 REM 

1000 GOSUB 21000 

1100 GOSUB 20000 

1110 GOSUB 22000 

1200 GOSUB 26000 

1300 FOF: n=l TO 1000 
1310 NEXT n 

1390 IF play=l THEN win=2 ELSE win=l 
1400 LOCATE 14,24 

1410 IF win = l THEN F'EN 2 ELSE F'EN 3 
1420 F'RINT "GANO EL JUGADOR ";win;"! M 

1430 a$=INKEY$ 

1440 IF " THEN GOTO 1430 

1450 INK 1,26 
1460 GOTO 1100 

19980 ’<<<<<<<<<<<<<<pantalla>>>>>>>>> 
20000 INK O,-O:INK 1,26:INK 2,6:INK 3,20 
20010 BOF;DER O: PAPER O: F'EN 1: MODE 1 
20020 LOCATE 17,1: F'RINT "GUSTAVO" 

20030 LOCATE 16,2: F'RINT "-'• 

20040 FOR n =l TO 6 

20050 F'LOT p(n,l),p(n,2),l 

20060 DRAWR O,8:DRAWR -8,O 

20070 DRAWR O,-8:DRAWR 8,0 

20080 NEXT n 

20090 LOCATE 1,10 

20100 F'EN 2 

20110 F'RINT "JUGADOR 1" 

20120 LOCATE 33,10 
20130 F'EN 3 
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20140 F'RINT "JUGADOR 2" 

20150 TAG #3 

20160 PRINT CHR$(23);CHR*(1 > ; 

20500 RETURN 

2 O980 ’<< < << < < <<<inicial izar > > > > > >>> > > > 

21000 DIM p(6,2) 

21010 RESTORE 21000 
21020 FOR n=1 TO 6 
21030 READ p(n,l) 

21040 READ pin,2) 

21050 NEXT n 
21060 DIM d (6,6) 

21090 RETURN 

21100 DATA 320,300,440,240,440,11O 

21110 DATA 320,50,200,110,200,240 

21980 ’<<<<<<<<<comienzo juego>>>>>>>> 

22000 FOR n = l TQ 6 

22010 FOR m=1 TO 6 

22020 d(n , m) =0 

22030 IF n=m THEN d(n,m)=3 

22040 NEXT m 

22050 NEXT n 

22250 RETURN 

22980 ’ <<<<<<<<<-(mandos>>>>>.>>>>>>>>>> 

23000 1 e=0: r i =0: -f i =0 
23010 a=JOY(O) 

23020 b=JOY(1) 

23030 a=a QF; b 

23040 IF (a AND 4)=4 THEN le=l 
23050 IF (a AND 8)=8 THEN ri=l 
23060 IF (a AND 16)=16 THEN fi=l 
23070 a$=INKEYÍ 

23080 IF a$=CHF;$ (242) THEN le=l 
23090 IF a$=CHRí(243) THEN ri=l 
23100 IF a$=CHF:$ (224) THEN -f i = 1 
23120 FOR d= 1 TO 50:NEXT p 
23150 RETURN 

2398O ? < < < < <<< < movimiento >> > >> > > > > > > > > 

24000 point=l:IF play=l THEN 

F'LOT 0,0,2 ELSE F'LOT 0,0,3 
24010 MOVE p(point,l)-10,p(point,2)+10 
24020 PRINT #3,CHR$(159); 

24030 GOSUB 23000 

24040 IF -f i = 1 THEN GOTO 24150 

24050 MOVE p(point,1)-10,p(point,2)+10 
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24060 
24070 
24080 
2 4 00 
24100 
24120 
24150 
24160 
24170 
24 ISO 
24190 
24200 
24210 
24220 
24230 
24250 
24980 
2 5 O O O 
25010 
25020 
25030 
25035 
25040 

25050 
25060 
25070 
25080 
25090 
7510 O 


25110 


25130 
25190 
25200 


25210 

O^üpl'l 

26000 

26010 

26020 

26030 


F'RINT #3, CHRí (159) ; 

IF le=l THEN point=point-1 

IF ri=1 THEN point=point +1 

IF point=7 THEN point=l 

IF point=0 THEN point~6 

GOTO 24010 

SOUND 2,200,50,15 

FOR w=l TO 300 

b %- INKEY4 

NEXT w 

RETURN 

NOVE p ( -f ro, 1) — 10, p (-f ro, 2) +10 
F'RINT #3, CHF;$ (159) ; 

NOVE d( des,1)-10,p <des,2)+10 
F'RINT #3, CHR'f (159) ; 

RETURN 

GOSIJB 24000 
t ro=po.i nt 
GOSUB 24000 
des-point 
GOSUB 24000 

IF -frondes OF: d !f ro, des) < >0 THEN 
GOTO 25200 

F'LOT p (fro, 1) , p (-f ro, 2) 

DRAW p(des,1>,p < des,2 > 
d(des,tro)~p1 ay 
d(tro,des)~play 
FOR n = l TO 6 

IF d (des, n) =pl ay AND d (n , -f ro) =pl ay 

THEN dead=l:GOSUB 27000 

IF d (des, n) =play AND d (n , -f ro) =p 1 ay 

THEN dead=l:GOSUB 27000 

NEXT n 

RETURN 

SOUND 2,200,20,15: 

SOUND 2,300,20.15: 

SOUND 2,400,40,15 
GOTO 25000 

d e a d=O: IN K 2, 6,7) 4 
p1ay=1:GOSUB 25000 
INK 2,6 

IF dead-1 THEN RETURN 
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26050 p1ay=2:GQSUB 25000 
26060 IF dead =1 THEN RETURN 
26070 INK 3,20 
26030 GOTO 26000 

26930 ’<< < < < < < < < << hiq h1 iq h t >> > >> > > >> > 

27000 F'RINT CHR$ (23) ; CHR¿ (O) ; 

27005 INK 1,9,15:INK 2,6:1NK‘3,20 
27010 PLOT p ífro,1),p(fro,2),1 
27020 DRAW p(n,1),p(n,2) 

27030 DRAW p(des,1),p(des,2) 

27040 DRAW p(fro,l),p(-fro,2) 

27050 PRINT CHR$(23);CHR$(1); 

27060 FOR s=200 Tü 1 STEP -1 
27070 SOUND 2,s,l,15 
27080 NEXT s 
27100 RETURN 



Derby con dados 



Mueve el cubilete 

Este es el primero de tres juegos de dados. Los otros dos son «Ojos 
de serpiente» y «Craps». Todos comparten las mismas subrutinas 
principales y se ofrece un menú para elegir juego. Así, tendremos 
en un programa un bonito conjunto de tres juegos de dados y un 
montón de tiempo de tecleo ahorrado. 

«Derby con dados» simula una carrera de caballos cuyo avance 
es proporcional al total obtenido en el lanzamiento de los dados. 
Pueden jugar de dos a cuatro jugadores y se incorpora la curiosi¬ 
dad de un cubilete que se agita. 

La tecla "COPY" sirve para mover el cubilete y para lanzar los 
dados. Así, cada jugador puede agitar libremente el cubilete du¬ 
rante el tiempo que desee. 

Las figuras que representan a los caballos corren hasta que 
hay,un vencedor, pero éste no se determina hasta que haya tirado 
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el último de esa ronda. De ahí que algunas veces haya que recu¬ 
rrir a la foto instantánea. 

Con "Shift+F" vuelvo al menú y desde allí puedo seleccionar 
otro de los tres juegos. 

Notas para el tecleo: los tres juegos que siguen usan la misma 
subrutina llamada "Dadorama", por lo tanto es conveniente te¬ 
clearla en primer lugar y grabarla por separado, luego pueden irse 
añadiendo los juegos uno a uno. Naturalmente no se podrá elegir 
un juego del menú que no se hubiera tecleado previamente. 

1 ’<<<< <<<<<<<dicerama> > >>>>> > > > > > > 

2 REM 

i00 ENV 1.1,-5,10,1,5,5 
500 GOSUB 22000 
1000 GOSUB 20000:PEN 2 
1010 LOCATE 1,3:PEN 3: 

F'EINT "i>Derby de dados" 

1020 LOCATE 4,6:PEN 3: 

F'RINT "2>0jos de serpiente" 

1030 LOCATE 1,9:PEN 4:PRINT "3 >Dados" 

1050 a$=INKEY$:IF a$="" THEN GOTO 1050 

1060 SOUND 2,200,25,15 

1070 IF a$“" 1" THEN GOTO 40000 

1072 IF a$="2" THEN GOTO 50000 

1074 .IF af”"3" THEN GOTO 60000 

1100 GOTO 1050 

2000 PEN 8:LOCATE 4,10: 

F'F:INT "PuIsa una tecla." 

2010 a$~INKEY$:IF a$="" THEN GOTO 2010 
2030 GOTO 1000 

19980 ’<< < <<< << < < < < p an ta11 a > > > > > > > > > > > 

20000 RESTORE 20000 
20010 FOR n=0 TO 15 
20020 READ a 
20030 INK n,a 
20040 NEXT n 

20050 DATA 0,26,18,2,6,24,20,3 
20060 DATA 8,0,O,O,O,O,O,O 
20070 PAPER O:PEN 1:BOEDER 0:MÜDE O 
20080 F'RINT CHF;$ (23) ; CHF:$ (O) ; 

20090 F'LOT 10,10,1:DRAW 629,10: 

DRAW 629,190:DRAW 10,190: 

DRAW 10,10 
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20100 F'LOT 0,0, 1 : DRAW 63?, O: DRAW ¿3?, 200 
: DRAW 0,200; DEAN 0,0 
20110 F'LOT 40, 40,13: DRAW SO, 30: 

D F: A W i 2 O , 3 O; D F: A W 16 0, 4 O 
20120 DRAW 130,160;DRAW 100,155: 

D R A W 7 0, 16 O; D R A W 4 O „ 4 O 
20130 PLOT 130.160:DRAW 100,165: 

DRAW 70,160 

20150 PLOT 50,45,12:DRAW 90,35: 

DRAW 130,35:DRAW 170,45 
20160 DRAW 140,165:DRAW 11O.160: 

D R A W 30, 165: D R A W 5 0,4 5 
20170 PLOT 140.165:DRAW 110,170: 

DRAW 30,165 

20130 PLOT 1SO,40,11:DRAW 180,SO: 

DRAW 135.11O:DRAW 195,150 
20190 DRAW 205,110:DRAW 200,80: 

DRAW 130,40 

20200 DRAW 325,45:DRAW 335,75: 

D R A W 330, 105: D F: A W 195,15 O 
20210 PLOT 60,50,15:DRAW 60,80: 

DRAW 100,80:DRAW 100,50:DRAW 60,50 
20220 PLOT 110,50,15:DRAW 110,80: 

DRAW .150,80: DRAW 150,50: 

DRAW 110,50 

20230 PLOT 60,80:DRAW 80,90:DRAW 120,90: 
DRAW 100,So 

20240 PLOT 110,80:DRAW 130,90: 

DRAW 170,90:DRAW 170,60: 

DRAW 150,50 

20250 PLOT 170,90:DRAW 150.30 
20500 RETURN 

20980 ’ < < < < < < < < < < r li i d o > > > > > > > > > > > > > > > > > 

21000 GOSUB 20090 
21010 IN K 1 1, O: IN K 15, O 
21020 INK 13,24:1NK 12,0 
21030 FOR q=l TO 25:NEXT q 
21040 SOUMD 1,200,1,15 
21050 INK 12,24:1NK 13,O 
21060 FOR q--1 TO 25:NEXT q 
21070 SOUND 1,100,1,15 
21160 d1~INT <RNDC1)*6)+1 
21170 d2=INT(RND(1> *6)+1 
21 190 I NKEY$: IF a$= " " 

21200 INK 13.0:INK 17.0 


THEM 21010 
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21210 

INK 11,24 

: INK 1 

5, 20 


21220 

SOUND 2,1 

50,25, 

15 


21 230 

ch~d1:GOSUB 21400 


21240 

IF s ( 1 ) = 1 

THEN 

PL.OT 

70 h 72 

21250 

IF s ( 2 ) ~ 1 

THEN 

F'LOT 

70,65 

21260 

IF s (3) = 1 

THEN 

F'LOT 

70,58 

21270 

IF s (4) ~ 1 

THEN 

F'LOT 

O cr -j"~\ 

/• * i 

21280 

IF s <5)=1 

THEN 

F'LOT 

95.65 

21290 

IF s ( 6 ) = 1 

THEN 

F'LOT 

95,58 

21300 

IF s(7)=l 

THEN 

F'LOT 

82, 65 

21310 

ch~d2:GOSUB 21400 


21320 

IF s ( 1 ) = 1 

THEN 

F'LOT 

118,72 

21330 

IF s ( 2 ) = 1 

THEN 

F'LOT 

118,65 

21340 

IF s(3)=l 

THEN 

F'LOT 

118,58 

21350 

IF s(4)=l 

THEN 

F'LOT 

140,72 

21360 

IF s (5) = 1 

THEN 

F'LOT 

140,65 

21370 

IF s( 6)=1 

THEN 

F'LOT 

140,58 

21380 

l p s ( 7 ) = i 

THEN 

F'LOT 

128,65 

21390 

RETURN 





21 400 

IF ch=0 

THEN ch=l 


21405 

IF ch=1 

THEN RESTORE 

21500 

21410 

IF ch=2 

THEN RESTORE 

21510 

21420 

IF ch=3 

THEN RESTORE 

21520 

21430 

IF ch=4 

THEN RESTORE 

21530 

21440 

IF ch~5 

THEN RESTORE 

21540 

21450 

IF ch =6 

THEN RESTORE 

21550 

2.1460 

FOR n=l 

TO 7 


21470 

READ s(n 

):NEXT n 


21480 

RETURN 



21500 

DATA 0,0 

, 0 , 0 , 0 , 0,1 


21510 

DATA 1,0 

, 0 , 0 , 0 , 1 , 0 


21520 

DATA 0,0 

, 1 . 1 , 0 , 0 . 1 


21530 

DATA 1,0 

M 1 S X q O || i «I 


21540 

DATA 1,0 

, 1 , 1 , 0 , 1 , 1 


21550 

DATA 1, 1 

, 1 , 1 , 1 , 1 , 0 


21980 

? .;•* .-f .-f .y .y .y 

< < < < i n i c i a 1 i 

z ar >> > 

22000 

DIN s(7) 

: DIM p (4,3) : 

DIM o (* 

22050 

RETURN 



22480 

• n .•/' ' ..•* 

<< < < <limpiar 


22500 

LOCATE 1 

, 1 


22510 

FOR n=1 

TO 240 


22520 

RRINT " 

" > 

1 



22530 SOUND 2,241-0,1,15 

22540 NEXT n 

22580 LOCATE 1,1:RETURN 
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22980 ' <<<<<<<<<<< jugadores>>>>>>>>>>>> 

23000 GOSUB 22500 

23010 F’RINT "JUGADORES ? (2-4)" 

23020 INKEYÍ 

23030 IF aí<"2" OR a$>"4" THEN 23020 
23040 SOUND 2,300,25,15: 

SOUND 2,200,25,15: 

SOUND 2,100,25,15 
23050 GOSUB 22500 
23060 FOR n=i TO 4 
23070 p(n,1)=0 
23080 NEXT n 
23090 p1 ay=VAL(a 4) 

23100 FOR‘n-1 TO p1 ay 

23110 o(n > =1 

23120 NEXT n 

23130 FOR q-n TO 4 

23140 o(q)=0 

23150 NEXT q 

23250 RETURN 

3993 q ? \ <* <* <* d er b v y y y y y y y y y y y y y y 

40000 GOSUB 23000 

40010 FOR n=l TO 4 

40020 p(n,1)-8:p(n,2)=384-n#32 

40030 NEXT n 

40035 PEN ó 

4 O O 4 O RESTORE 4 ü 1U U 

40050 FOR n=1 TO 12 

40052 IF n=4 THEN PEN 8 

40054 IF n =10 THEN PEN 6 

40060 READ a 

40070 LOCATE 20,n 

40080 F'RINT CHR*(a): 

40090 NEXT n 

40100 DATA 235,149,149,149,77,69,84,65,1 

49,149,149,191 

40150 GOSUB 49000 

40200 FOR w=l TO play 

40204 PEN w+1 

40210 LOCATE 13,15:PRINT "J UGADOR"; 

40220 LOCATE 15,17:PRINT w 
40230 SOUND 2,200,50,15 
40240 a$=INKEY$ 

40250 IF a$="" 


THEN GOTO 40240 
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40255 IF a$~"F" THEN RUN 

40260 F'LOT O,O,O:GOSUB 21230 

40270 GOSUB 21000 

40275 FOR d=l TO <dl+d2)*2 

40280 SOUMD 2,400,1,15:PRINT CHR*(23); 

CHRf(1);:GOSUB 49000 
40290 p(w,1)=p(w,1)+4 
40300 SOUND 2,200,1,15:GOSUB 49000: 

PRINT CHRf (23) ; CHF;$ (O) ; 

40310 NEXT d 

40350 NEXT w 

40360 win=0 

40370 FOR n = l TO 4 

4o38u IF win>0 THEN GOTO 40400 

40390 IF pin,1)>570 THEN win=n 

40400 NEXT n 

40410 IF win=0 THEN GOTO 40200 
40450 GOSUB 22500 

40460 F'RINT "GANO EL_ JUGADOR ";win; 

40500 RESTORE 40600 

40510 FOR n = l TO 13 

40520 F;EAD a,b 

40530 SOUND 2, a, b , 15, 1,0 

40540 NEXT n 

40590 GOTO 2000 

40600 DATA 319,50,284,20,253,20,239,20 

4061O DATA 253,20,284,20,319,50,319,10 

40620 DATA 284,20,253,20,239,20,253,20 

40630 DATA 284,20 

49000 FOR n=l TO 4 

49010 TAG #1 

49020 PLOT 0,0,n+l 

49030 MOVE pín,l),p(n,2> 

49040 F'RINT #1, CHRf (234) ; 

49050 TAGOFF 
49060 NEXT n 
49070 PLOT 0,0,1 
49080 RETURN 
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Ojos de serpiente 



/Suenan los dados! 

Este es el segundo de los tres juegos de dados. Debe introducirse 
el «Derby de dados» primero y este a continuación. Las instruccio¬ 
nes para lanzar el dado son las mismas. 

Pueden jugar de dos a cuatro jugadores e incluye apuestas. Al 
principio se determina el dinero que hay que conseguir para ven¬ 
cer, puede ser entre 40 y 400 £. La banca comienza sin dinero. 

Cada jugador tira sus dados, si saca un doble entonces gana 
el dinero de la banca. Si saca los «Ojos de la serpiente» (dos unos) 
entonces se lleva el doble del total acumulado en banca. Cuando 
la banca paga se queda a cero. 

Después de cada ronda la banca recibe 5 ó 10 £ dependiendo 
de si se establecieron 200 ó 400 £ como tope necesario para ven¬ 
cer en la partida. 


El juego termina cuando un jugador alcanza esta cantidad. Po- 
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dría ser interesante cambiar las cantidades recibidas por la banca 
después de cada ronda para que cuando alguien gane el fondo 
éste sea mayor. 


49980 ? < < < < < << < o j os de serpiente> >>> >>> 
50000 GOSUB 23000 

500i 0 WINDOW #5,1,20,9,11:PEN #5,2 
50020 F'RINT 

" Pon la puntuación ganadora ?" 
50030 INPLJT #5,lim:IF lim>400 OR lim<40 
THEN GOTO 50000 
50040 ucda-5:GOSUB 22500: 

IF 1 im>200 THEN upda=10 
50050 PEN 2:LOCATE 3,1:PRINT "1" 

50060 PEN 3: LOCATE 8,1: F'RINT "2" 

50070 PEN 4: LOCATE 13,1: F'RINT "3" 

50080 PEN 5: LOCATE 18,1: F'RINT "4" 

5 O O 9 O P EN 6: L. O C A TE 1,2: 

F'R I NT STRI. NGí < 20, 45) ; 

50100 PEN ó:LOCATE 1,12: 

F'R INT STRI NGf (20, 45) ; 

50110 F'EN 8: LOCATE 1,8: 

F'R I NT STR I NG$ < 20, 45) ; 

50150 kit=0 
5 017 O k i t — k i t+u p d a 
50180 per=l 

50190 FOR n=1 TO 4:LOCATE n*5-4, 4 
50195 F'R I NT p (n , 1) : NEXT n 
50200 PEN per+1:LOCATE 13,15: 

F'RINT "JUGADOR" 

50210 LOCATE 15, 17: F'RINT per 
50220 GOSUB 50500: 

IF p(per,1> Mim THEN GOTO 55000 
5O23O per=per + l: 

IF per >p3. ay THEN GOTO 50170 
50240 GOTO 50190 
50500 aí-INKEYf 

50510 IF a$="" THEN GOTO 50500 
50515 IF al="F" THEN RUN 
50540 CLS #5: 

F'RINT #5. "El banco tiene ";kit 
50550 F'LOT O, O, O: GOSUB 21230 
5 O S ¿z> O G O B U B 2 i O O O 

50570 IF d1~1 AND d2-l THEN GOSUB 


50600 
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50580 

IF dl = 

d2 AND 

di 

< >1 


GOSUB 

50700 



50590 

RETURN 



50600 

SOUND 

"\00 

25, 

15: 


SOUND 

V Í~\ l ") 

q J— -- q 

rr 

q 

15 

50610 

SOUND 

2,100, 

25, 

15: 


SOUND 

"?nrt 

•*— •> — H 

cr 

15 


50620 p(per,1)=p(per,1> + kit * 2 

50630 kit=0 

50640 RETURN 

50700 SOUND 2,400,25,15: 

SQIJND 2,200,50,15 
50710 SOUND 2,400,25,15: 

SOUND 2,100,50,15 
50720 p(per, 1 > ~p(per,1 ) + kit 
50730 kit=0 
50740 RETURN 
55000 win=per 
55010 GOTO 40450 
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Dados 

(Craps) 



¡...y lanza! 

Ya tenemos aquí la versión para ordenador de un juego de dados 
americano característico de las películas de pistoleros y de algu¬ 
nos programas de televisión. 

Los jugadores, de dos a cuatro, pueden imaginar que están en 
Las Vegas por cortesía de la casa Amstrad. 

Cada jugador parte con 100 £ (o dólares si se le quiere dar más 
realismo) y cuando le toca el turno hace su apuesta con un tope 
de la cantidad que tiene. Aquí es donde empieza la diversión. 

Si sale un 7 ó un 11 en primer lugar, el jugador recupera su 
apuesta y gana otro tanto, pero si el número es 2, 3 ó 12 pierde 
su turno y el dinero. Cualquier otro número es un «tanto». Estas 
son, pues, todas las posibilidades. 

El jugador continúa tirando para alcanzar el tanto, pagar lo que 
ha perdido o recibir su dinero y dejar paso al siguiente. 
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Si un jugador pierde todo su dinero debe abandonar el juego. 
El último que quede será el ganador. 

Pulsando "Shift+S" se vuelve al menú. 

Es necesario haber tecleado previamente el programa "Derby 
con dados" ya que se utilizan algunas de sus subrutinas. 

60000 GDSUB 23000 

60010 PEN 2:LOCATE 3.1:PRINT "1" 

60020 PEN 3:LOCATE 8,1:PRINT "2" 

60030 PEN 4:LOCATE 13,1:PRINT "3" 

60040 PEN 5:LOCATE 18,1:PRINT "4" 

60050 PEN 6:LOCATE 1,2: 

PF: I NT STRI NG$ í 20, 45) ; 

60060 PEN 6:L0CATE 1,12: 

PRINT STRINGT(20,45); 

60065 PEN 8:LOCATE 1,8: 

PRI NT STRING$í20,45) ; 

60070 WINDOW #5.1,20,9,11:PEN #5,2 

60080 P'OF; n —1 TO 4 

60090 p. < n,1)=100 

60100 NEXT n 

60150 FGR w=l TO play 

60160 FOR n=l TO 4 

60170 LOCATE n*5-4,4:PRINT p(n, 1) 

60180 NEXT n 

60185 IF p (w, 1X1 THEN GOTO 60500 
60.190 PRINT #5, "Apuesta del jugador" ; w; 

11 n 11 

60200 INF'UT ttS.bet: 

IF r betíl 0F; bet>p(w,l) THEN 
SOUND 2,300,50,15:GOTO 60200 
60240 F’LOT 0,0,0:G0SUB 2.1230 
60250 GDSUB 21000 
60260 tot=dl+d2 

60270 IF tot-7 OF: tot = U THEN GOTO 61000 
60275 IF tot~2 OF; tot=3 OF; tot = 12 THEN 
GOTO 62000 
6 O 2 8 O p o i n t = t o t 

60290 PRINT #5,"Tira otra vez..." 

60295 a$=INKEY$:IF a$="" THEN GOTO 60295 

60296 IF a$="F" THEN RUN 

60297 F'LOT 0,0,0:G0SUB 21230 
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60300 GOSUB 21000 
6 O 310 t o t ~ d 1 + d 2 

60320 IF tot=point THEN GOTO 61000 

60330 IF tot=7 THEN GOTO 62000 

60340 GOTO 6U2 c 'O 

60500 NEXT w 

6 O 5 O 5 -f 1 a q — O: con—O 

60510 FOF; n = l TO play 

60520 IF con=l THEN GOTO 60540 

60530 IF p(n,l>>0 AND -flag~l THEN con = l 

60535 IF p (n, 1) >0 THEN -flag = l 

60540 NEXT n 

60550 IF con”1 THEN GOTO 60150 

60560 win~0 

60570 FOF: n=l TO play 

60580 IF" wi n< >0 THEN GOTO 60600 

60590 IF p(n,l)>0 THEN win=n 

60600 NEXT n 

60610 GOTO 40450 

61000 CLS #5:SOUND 2,300,25,15: 

SOUND 2,200,25,15: 

SOUND 2,100,40,15 
61010 F'RINT #5, " Ganaste ! " 

61015 FOF: y= 1 TO 2000: NEXT y 

61020 p(w,1)=p(w,1)+bet 

61030 GOTO 60500 

62000 CLS #5:SOUND 2,100,25,15: 

SOUND 2,200,25,15: 

SOUND 2,400,40,15 
62010 PRINT #5." Perdiste !" 

62015 FOF; y=l TO 2000: NEXT y 
62020 p(w,1)=p < w,1)-bet 
62030 GOTO 60500 
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Black-Jack 



Un par de cartas puede hacer saltar la banca 

Esta es una versión para ordenador del conocido juego de cartas. 
La banca comienza con 500 £ y cada jugador con 100 £. Puede ha¬ 
ber hasta dos jugadores contra la banca y el objetivo es obtener 
21 puntos, es decir black-jack. 

Se da una carta boca arriba a cada jugador y una tapada a la 
banca, entonces se hacen las apuestas. Después se da una segun¬ 
da carta y cada jugador tiene varias opciones cuando le toca: 

Pulsando "P", si la suma de ambas cartas es igual o mayor 
que 16, se puede pasar. 

Pulsando "C" se puede pedir otra carta. 

Pulsando "D” se dobla la apuesta si uno piensa que su jugada 
es buena. 

"El valor del as puede ser 1 u 11, a elegir, en función de las de¬ 
más cartas. El resto de las cartas valen según su número excepto 
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las figuras, que valen 10 puntos. Cuando uno se pasa de 21 pier¬ 
de. Una vez que han terminado los dos jugadores es el turno de 
la banca. 

El criterio para determinar quién gana y quién pierde es el si¬ 
guiente: la puntuación más alta es black-jack (un as más un 10 ó 
una figura); después va la suma de cinco cartas siempre que su 
suma no exceda de 21; luego, cualquier combinación de cartas 
que dé 21 puntos y, por último, la puntuación que más se aproxi¬ 
me a 21, en el supuesto de que no se dé ninguno de los casos an¬ 
teriores. Siempre que el resultado de la banca ¡guale al de un ju¬ 
gador, gana ella. 

El juego continúa hasta que cada jugador ha perdido todo lo 
que tenía o hasta que salta la banca. Con "Q" se puede reinicia- 
lizar el juego. 

Este programa comparte líneas con los juegos de cartas de los 
siguientes capítulos. Es, pues, conveniente grabar aparte las su¬ 
brutinas comunes a estos programas. 

"GENERAR BARAJA" 


q ."“i 

•t • .• .• 

í •’ •' <generar 

maz 

o y y y y y 


10000 

FQF; 

sait-1 TG A 




10005 

FGR 

car“1 TO 13 




10010 

oací 

(suit.car)- 

CHRÍ 

( su.i t-r 225) 


1.0015 

IF c 

ar<11 AND c 

ar >1 

THEN 



pací 

(suit.car)= 

pací 

( su.i t. car ) 

+ 


STEí 

(car) 




1001 ¿ 

IF c 

ar-1 THEN 





pací 

(suit,car)- 

pací 

( su i t. c ar ) 

4 1 

1.0020 

IF c 

■ar -11 THEN 





D a c í 

(suit,car)= 

pací 

( SUÍ t- , > 

4 ’ 

10025 

T c 

ar-12 THEN 





p a c í 

(suit.car)= 

pací 

<suit,car 5 

+ 1 

10030 

IF c 

ar=13 THEN 





pací 

'• ~> Ll 1 t » C 3 . r } ™ 

pací 

( s a i t« c s) 

+ 1 

10035 

NEXT 

car 




10040 

NEXT 

su i t 




10045 

RETU 

EN 




10490 


< < < < < < b ar a 

i - 3 . 

TI Z Q 


10 5 O 0 

FGR 

n- 1 TO 52 




10505 

oaín 

> ~n:aví n)=1 




10510 

NEXT 

n 




10515 

FOR 

a-1 TD 30 
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10520 
10525 
10530 
10535 
10540 
10545 
10550 
10990 

Í (-)OOcr 
1 1 000 

11005 


1 1010 
1 1020 

11021 


11 


022 


1 1025 
.1.1030 


1 1035 
11040 


11045 


1 1050 
11055 


11065 


n1=1NT(RND(1)*51)+1 
n2=1NT(RND <1)*51)+1 
cc=pa<n1) 
os (n 1 > -pa Cn2) 

Da(n2)=cc 
NEXT a 
RETURN 

’ <<< < << '•!"■(<di bu ¡ar cartas> !'■ >>>> >>> 

F'RINT CHRí (24 ) ; 

LOCATE cü-1,cv 

PAPER 0:PEN 1:PRINT CHRí(230);: 
FOR z = i TO 5: F'RINT CHRí(224);: 
NEXT 2 : F'RINT CHE* (231) 

LOCATE c;:-l,cv + l 

PRINT CHRí(234);:PAPER 1:PEN O: 
PRINT RIGHTÍ(pací(suit,car!,2) ; 

IR LEFTí(pací(suit.car > . 1) = 

CHRí (227) OF: 

LEFT í ( d as í ( su it.car) . 1) =CHF:f (223) 

THEN PAPER 1j PEN 2 

ELSE PAPER 1:PEN O 

F’R I NT LEFT í (pací í su i t,car),1) : : 

PAPER O: PEN 1 : F'R I NT CHRí (14 3); 

CHRí(143):CHR*(235) 

LOCATE c¡:-l,cv+2 

F'RINT CHR* (234) : : FOF; 2 = 1 TO 5: 

F'R I NT CHR* (14 3);: NEXT ::: 

PRINT CHR*(235) 

LOCATE cü-l.cv+3 
RF: I NT CHR* (234) ; CHRí (143) ; 

CHRÍ(143);: 

IF LEFT*(pací(suit.car) , 1) = 

CHRÍ (227) OF: 

LEFTí(pací(suit.car),1)=CHRí(228) 
THEN PAPER 1:PEN 2 ELSE PAPER 1: 
PEN O 

F'RINT LEFTÍ (pací (sui t. car ) , 1) ; : 
PEN 1 : PAPER O: F'R I NT CHRÍ (14 3); 
CHRí(143);CHRí(235) 

LOCATE c;; - 1,cv + 4 

PRINT CHRÍ(234)FOR z=l TO 5: 

F'RINT CHRÍ (143) ; : NEXT z : 

F'RINT CHRÍ (235) 

LOCATE c;; -1 , cv+5 

F'R INT CHR* (234) : CHRÍ ( 143) ; 
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CHR$ •! 143) CHRÍ (14 3):; PAPER 1 : F'EN O 
: PRINT RIGHTí (pací (su i t, car) ,2) ; : 
PAPER 0:PEN 1sPRINT CHR$<235) 

.1.10 7 0 L 0 C A T E cx -1, c y + 6 
11075 PRINT CHRÍ (233) ! s POR z = í TO 5: 
PRINT CHRÍ(225)s:NEXT zs 
PRINT CHRÍ(232) 

1107¿i SDUND 1,100,2 
11030 RETURN 

1117 O * < < < < < < < < < d i b u ..i a r c ar t a v u e 11 a > > > 

11 200 LOCATE c- 1 . c ,: PEN 3 

11205 PRINT CHRÍ(236)::FDR n=l TO 5: 

P RIN T C H R í (2 4 O) ; : N E X T n : 

PRINT CHRÍ(237) 

11210 FOR nn - 1 TO 5sLOCATE c:t-i,cy+nn 
11215 PRINT CHRÍ(242);;FOR n =l TO 5: 

PRINT CHRí (2445 5 s NEXT n : 

PRINT CHRÍ(243) 

11220 NEXT nn 

11225 LOCATE ex-l.cy+6:PRINT CHRÍ(23?>; : 
FOR n-1 TO 5:PRINT CHRÍ(241);: 

NEXT n:PRINT CHRí(233) 

11226 SDUND i,300,2 
11230 PEN 1:RETURN 

- 4 , O , J_ w 1 ' , 4„ 


17000 

SYMBOL 

bw , aJÜbS 


17005 

SYMBOL 

, 255,0 


17010 

SYMBOL 

7, 127 


17015 

SYMBOL 

54,254 


17020 

SYMBOL 

, 252,0 


17025 

SYMBOL 


c:r .n 


254,254,254,254,254 
127,127,127,127,127 


, 63, O 

17030 SYMBOL 234,127.127,12 
,127,127 

17035 SYMBOL 235,254,254,254,254, 
,254.254 

17O4O SYM BO L 236,0,63,106.85,106, 


127, 127, 127 
54,254 


17045 SYMBOL 237,O,252,170,36,170,36,170 

RA 
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17050 SYMBOL 


36, 170, 

35,106,55,106, 


17055 SYMBOL 23?,10 

, O 

17060 SYMBOL 2 40,0,255, 170,35, 170,35, 170 
. 35 

17065 SYMBOL 241,170,85,170,85,170,35,25 

5 * o 

1 "7 "7 O V M f“i '• 1 I .“1 G*- 1 Tí O ^7 1 A ¿. O *7 | A 
j. / w . « . i_ ; U *. t*.,, ¿ u, uJ, i 'J C * O w , 1 U ¿2 * ‘.¡3 uJ , I U 

6 » 05 

17075 SYMBOL 243,170,86,170,36,170,36,17 
o. 36 

17080 SYMBOL 244,170,85,170,85,170,35,17 


1 

3 •* .-•* 

•• y i *... «... «... ♦... •... «... 


DEFINI 

Cl jL 

O* 

DIM oa! 

52) , av <52) , pac? (5, 13) , 0 c í3) 

4 

DIM c>s <4>,cy(4) 

5 

DIM nao 

(4),pl (2) 

6 

DIM pie 

(3,5) , be(5) 

"7 

DIM mo ! 

2) , p * (2) 

P 

SYMBOL 

AFTER 223 

O 

G0SLIB 1 
G0SLJE 1 

“7r>A r> 

1 0 

1500 

11 

mo <1)—1 

00:mo(2)=100:me—500 

t 2 

cc! 1> =2 

0 s cc(2)-33 scc(3 >=£ 

13 

Di < 1 > =1 

: p 1 (2) -1 

15 

GQSUB 1 

0000 

r "ñ 

GCSUB 1 

0500:n nr ( A)—O 



21 

CLSs IF 

np---l THEN d 1 (2) =0 

Jm. 

1 r d i í 1 

)=0 AND d!(2)=0 THEN 22000 

p “T 

IF p 1 (.1 

)=0 THEN be(15=0 

24 

IF pl (2 

)=0 THEN be(2)—0 

oL 5 

G0SUB 1 

2000 

. ‘ . ( ’ 

os ( 1 ;= i 

5: cu (2) =28 

* 7 * cr 

cv ( 1 ) -5 

s cy < 2)-5 

40 

L.- i '. —“ « íl) V 

„cr 

42 

G0SUB 1 

3500 

45 

FQR q-1 

T 0 n p 

4 £ 

IF pl (a 

> =0 THEN 55 

30 

G0SUB 1 

4 O*"'O 

51 

G0SUB 1 

soco 
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n::cr 

uJ 

NEXT 



J K-J 


57 

GOSUB 

60 

5DSUB 


FOR q 

66 

C v - c v 

70 

cy=cv 

-;?cr 

GOSUB 

*7 

GOSUB 

80 

Z'A i q) 
NEXT 

81 

c;; ~b;: 

85 

GOSUB 

90 

GOSUB 

91 
o ~ 

’ <<« 

07 

Q ” 

T F n n 




IF se 


GOTO 

94 

IF se 


p til)- 

100 

c ;; ~ bc 

105 

GOSUB 

110 

GOSUB 

111 

b k =b :■ • 

11 & 

b;:=cx 

130 

a = 3 : c : 

135 

IF se 


ELSE ! 

136 

b i í ~ b; í 


GOSUB 

137 

GOSUB 

140 

IF noi 

145 

IF n p : 


GOSUB 

147 

IF n p : 


IF se 


se í 3 ) 


GOSUB 

150 

q = l 

151 

IF pl 

152 

IF se 


GOTO : 

153 

IF se 


f+'*¿ ■ u;< —cu +1: NEX i' q 
Di (q)=0 THEN 80 


CV = b‘: 


a ds ountu 


ac x on ,> 


=by 


THEN 150 ELSE GOTO 


: C K i } ' ■ : 


ÜR 


GOTO 200 
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160 

T P 

¡¡el 

- 

P H 

ND 

n oc '■ q ) =5 ! ■ 

HE 

N 



'•••. “5 i 

a) : 

= 

31 f 1 ! 

s GO 

TO 200 




162 

IF 

n o ¡ 

c 

1 ¡~, • 

_cr 

] H E N o % í q ) 

- 11 

W 

11 >1 


GOT 



0 0 






i / 'T 

j. 

IF 

r> : 

= 

5 T 

HEN 

pí (q) ~ " L " 

; G 

OTO 2 

164 

T p 

X i 

se 

i 

. \ ) !•- 

SC K 

q) THEN pt 

! i. Q 

) 

11 


GOT 

G 

id 

(~j »**} 






4 ¿. r.:r 
j. 

IF 

se 

» 

y '•« ~ 

r> ■* 

A N D n c —2 A 

ND 


sc (q 


AND 

n 

Q 

c (q 

) =2 

THEN p$(q 

) - 

II 

L" : 


GOT 

0 


00 






170 

IF 

n o 

c 

r rn ’i 
•• • 

-5 

AND n c < 5 T 

HE 

N 



Lj -v- •> 

Q ) 

- 

"W" 

i bU 

TO 2:00 




175 

IF 

■s c 

( 

a) - 

21 

AND noc(q) 

'“O 


THEN 


pf- ( 

a) 

~~ 

1 ! «, | 1 t 

: GOTO 200 




ISO 

IF 

se 

\ 

q ) > 

3¡- f 

3) THEN pí 

( q 


-"W" 


GOT 

0 

u.i 

00 






1 QK-, 

I P 

s c 

( 

a > = 

S C ( 

3) THEN p$ 

(q 

) 

= " L." 


GOT 

n 

di 

00 






1 Q.L 

J. U—• u..- 

T p 

s c 


y "i 

S C v 

q) THEN pS 

<q 

) 

= " L " 

200 

IF 

np 

r.:r 

di A 

ND 

q=l THEN q 

d 

¡¡ 

GOTO 

i 

-■ j. 

IF 

np 

T7. 

1 T 

HEN 

cr 




205 

IF 

p-$ 

( 

1 ) = 

"L" 

AND p $(2) 

.... 1 ! 

L 

II 


THE 

N 

3 

50 






210 

T p 

J. i 

r -, '± 

( 

i > = 

"W" 

A N D p $ \ 2 .) 

.... 11 

W 

II 


THE 

N 

- 1 j 

00 






215 

IF 

Q* 

( 

1 ) ■= 

"W" 

AND pí(2) 

_ 11 

L_ 

il 


THE 

N 

¿. 

00 






220 

IF 

Q* 

( 

I ) = 

M L 11 

AND p*(2) 

— ! 1 

W 

il 


THE 

N 

6 

50 






_J 2 5 

IF 

DS 

( 

j l 

"W" 

THEN 400 




230 

IF 

p$ 

í 

i) ~ r 

" L " 

THEN 450 




240 

END 









y o cr 





< jU 

gador gana 




400 

me- 

me 

- 

be ( 

1 ) 





405 

mo ( 

i > 

- 

me ( 

1 ) + 

be ( 1 ) *2 




406 

GOS 

UB 


2 3 0 

00 





410 

l'F 

me 


1 T 

HEN 

750 




4 11 

GOS 

;iJB 


190 

oo 





412 

LOO 

:ATE 


25 : 






F'RI 

NT 


"El 

jugador gana 

»> u 




GO'c: 

;ub 


i o*=¡ 

i oo 





415 

GOT 

0 

.~y 

0 






445 






b a n c a g a n a 




450 

mc = 

: mc 

H- 

be ( 

1 > 






451 


?OSUB 


?000: SOSUB 2' 
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452 LOCAlE 1,25:PRINT "La banca gana": 
GOSUB 19500 

453 IF rao(1)<1 THEN p1(1)=0 
455 GOTO 20 

49 5 ’<< < <<< <<< <ambos g aan an >>> > > > >> >> 

500 rao ( 1) =mo ( 1) +be< 1 ) K2 

505 rao (2) =mo (2) +be (2) #2 

506 GOSUB 23000 

510 mc=mc-be(1)-be(2) 

515 IF mc<1 THEN 750 

516 GOSIJB 19000 


520 GOTO 20 

545 ’< <<<<<<<ambos pierden >>>>>>>>>>> 

550 mc=mc+be(l)+be(2) 

551 GOSUB 19000:GOSUB 23500 


553 IF mo!1)<1 THEN pi(l)=0 

554 IF mo(2)<1 THEN pl(2)=0 

555 IF p1(1)—0 AND pl(2)=l THEN 
LOCATE 1,25: 


PRINT "Pierde el jugador 2" 
560 IF pl(1)=1 AND pl(2)=0 THEN 
LOCATE 1,25: 

PRINT "Pierde el jugador 1" 
565 IF pl(l)=l AND pl<2)~ = l THEN 
LOCATE 1,25: 


PRINT "Ambos jugadores pierden" 
566 GOSUB 19500 
570 GOTO 20 

595 ’ <<<<<<<• < jugador 1 gana>>>>>>>>> 

600 mc=mc+be(2) 

605 mo ( 1) =rao (1) +be < 1) *2 

610 me=mc-be (1) 

611 GOSUB 23000 

614 IF mo(2)<1 THEN p1 < 2)=0 

615 IF me<1 THEN 750 

616 GOSLJE: 19000 

617 LOCATE 1,25: 

PRINT "Gana el jugador 1": 

GOSUB 19500 
620 GOTO 20 

645 ’<<<<<<<<jugador 2 gana>>>>>>>>> 

650 mc=mc+beíl) 

655 mo (2) =mo (2) +be <2) %2. 

660 mc=mc-be<2> 

661 GOSUB 23000 
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A 

‘-j '_J "i 

IF mo ( 

1 > < 1 THEN pl (1>=0 


.2. L ~~ 
u. : w -_ l 

IF mc< 

1 THEN 750 


£> ir.* w 

GOSUB 

19000 


667 

LOCATE 

1,25: 



F'RINT 

"Gana el jugador 2": 



GOSUB 

19500 


670 

G 0 T 0 2! 

0 


745 


< < << saltar banc a> >> > > > > 


750 

GOSUB 

í 9000 


-7 cr cr 

LOCATE 

1,25 


7¿0 

PRINT 

"Bien hecho,has saltado 

1 a b 

anca 




76 1 

GOSUB 

2 3 O O 0 : G 0 S U B 2 -i- u 0 0 


7¿>5 

GOSUB 

19500 


770 

CLS 



775 

PRINT 

"JUGADOR 1: " ; rnoT. (1) 


780 

IF n p = 

mo (2) 

2 THEN PRINT "JUGADOR 2: 

o . 

•1 

785 

GOSUB 

19500 


790 

GOTO 1 

Q 


11099 

? .-•* .-** .-•* 

< < < carta para banca > > > > 


1 1100 

t=(RND <1)*51)+1 íIF av í t)=0 THEN 


11100: 



11 102 

aví t) = 

0: n oc (3 > =n oc (3) +1 


11103 

pie í 3 , 

noc(3))=t:w=noc (3) 


11 104 

RETURN 



11490 


(«numero de jugadores)-) 


11500 

MODE 1 

:WINDGW #3,24’40,25,25: 



INK 1, 

28: INK 2,ó:BORDER 0:INK 

0 , 0: 


INK 3. 

14 


11501 

LOCATE 

15,1:PRINT "21" 


1 1505 

PRINT: 

INF'UT "1 0 2 jugadores"; 

np 

11510 

IF np< 

>1 AND np< >2 THEN 11500 


11515 

FOF: q = 

1 TO np:pl(q)=1:NEXT q 


11520 

RETURN 



11990 

’ 

<<<<<repartir cartas)>>) 


12000 

FOF: q = 

1 T0 np 


12005 

cl=(RNDí1> *51)+1 


12015 

IF av! 

c1)=0 THEN 12005 


12020 

avíq)= 

0 



12025 plcíq,l>=cl 
12030 NEXT q 
12035 c 1 = (RNDí1)*51)+1 
12045 IF avíe1>=0 THEN 12035 
12050 av (el) =0 
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12055 tac(l)=cl 

12060 noc(1) = 1:nocí2)=1:nc=1 
12065 RETURN 

1299O ’ < < < < < < < < < < ¡mirar c a r t a s > > > > > > > > > 

13000 bu i =pl c (q, w> /13: car=pl c (q , w) MOD 
13:IF car=0 THEN car=13 
13005 IF sui>0 THEN suit=l 
13010 IF sui>1 THEN suit-2 
13015 IF sui>2 THEN suit=3 
13020 IF sui>3 THEN suit = 4 
13025 RETURN 

13490 ’ < < < < < < < < d i b u j a r pantalla > > > > > > > 
13500 LOCATE 1,3: 

F'RINT "BANCA" , "JUGADOR 1",: 

IF np=2 THEN PRINT "JUGADOR 2" 
13505 LOCATE 14,21:PRINT "Apuesta:": 

IF np-2 THEN LOCATE 27,21: 

F'RINT "Apuesta: " 

13510 LOCATE 1,22:PRINT "#": 

LOCATE 14,22:PRINT 

IF np=2 THEN LOCATE 27,22:PRINT "# 

II 

13515 LOCATE 1,21:PRINT "RESERVAS": 
LOCATE 1,20:PRINT "Total:": 

LOCATE 14,20:PRINT "Total:": 

IF np=2 THEN LOCATE 27,20: 

PRINT "Total:" 

13520 RETURN 

13990 ? < < < < < < < < < < dibujar mano > > > > > > > > 

14000 ex=cx (q) :cy=cy <q) 

14005 FOF; w=l TO noc(q) 

14015 GOSUB 13000 

14020 GOSUB 11000 

14025 cy=cv+2:cx=cx+l:NEXT w 

14030 LOCATE cc(q)-5,22:PRINT mo(q) 

14035 RETURN 

14 49O ■< < < < <<< < <pasar> > > > >> >> > > > > > > > > 

14500 FOF: q = l TO np: 

IF p1(q)=0 THEN 14526 

14501 ex(q)=cx(q)+1 

14505 LOCATE 1,25: FOF; n=l TO 39: 

PRINT " ";:NEXT n 

14507 LOCATE 1,25:PRINT "JUGADOR ";q; 

" , " ; : PRI NT CHR$ (24) ; " P " ; CHF;$ (24 > ; 
"ASAR"; " " ; CHRÍ (24) ; "C";CHF:í (24) ; 
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"ARTA"; " 

14508 PRINT " "•CHRf(24) ;"F";CHP*(24); 
"IN"; " " :CHRÍ(24);"D";CHRS(24) ; 
"OBLE" 

14510 a$ = INKEYÍ:a$=UPPERí<a$): 


IF a$-"P" QR af="C" OR at="D" OR 



3 cfc — il C H 
a — i 

THEN 14511 ELSE GOTO 14510 

1 4511 

cx=c;; ( 

q) :cy=cy (q) + (2tnoc (q) ) 

14512 

r p - 

"D" THEN GOTO 20000 

14513 

IF a'$~ 

"F" THEN END 

14515 

IF aí = 

"P" AND se(q)>15 THEN 


GOSUB 

15000: ex —C5< +1 : GOTO 14526 

14520 

IF a$= 

"C" THEN GOSUB 15500: 


c -c;: + 

1: ex (q ) -ex (q ) +1 

14523 

GOSUB 

18000 

1452 4 

IF se ( 

q)>21 THEN LOCATE cc(q),20: 


PR I NT 

"FUERA":GOTO 14526 

14525 

IF noc 

<q)< >5 THEN 14510 

14526 

NEXT q 


14530 

RETURN 


14990 

REM 


15000 

GOSUB 

18000:LOCATE cc<q),20: 


PRINT " ":LOCATE cc (q) ,20: 

PRINT sc(q)s RETURN 


15500 c=(RND(i)*5i)+1: 

IF av(c)=O THEN 1550O 
15505 av(c) ~ 0 :noc < q)=noc(q )+1 
1551O p1c(q,noc<q)>=c:w=noc(q): 

GOSUB 13000:GOSUB 11000:RETURN 
1599O " < < < < < < < < < < < < a p u e a t a a ■ > > > ; > > > > 
16000 LOCATE 2,22: PRINT me: FOR q-1 TO np 
1 ó O 01 IF p1 (q > =O THEN 16O2 O 
16005 LOCATE 1,25:FOR n = i TO 39: 

PRINT " "::NEXT n 

1601 O LOCATE i,25:PRINT "JUGADOR ";q; 

"Apuesta >#) " ; 

16011 INF'UT #3, be < q ) : 

IF be(q5<1 THEN 16005 
16 012 IF b e ( q) > m a (q) T H E N 16 O O 5 

16015 LOCATE cc (q) ,21:PRINT be(q) 

16016 LOCATE cc (q),22:PRINT " " 

1601 '7 mío <q > =mo (q ) — be « q ) 

16O13 LOCATE cc(q)-4,22:PRINT " ": 

LOCATE cc<q >-5,22:PRINT mo<q) 
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16020 NEXT q 
1 6 O 4 O F; E: T U R N 

16490 ’ <<<<<<<<<otra carta>»>>; >>>> 

i6500 c =(RND ( 1)*51)+1: 

16505 IF avie)=0 THEN 16500 
16510 pie (q, n oc (a) +1 "> =c s av (c ) =0 
16515 nocC q)=noc (q)+1 

16520 w=noc (q > :GOSUB 13000:GOSUE 110OO 

16525 RETURN 

17085 RETURN 

17500 G 0 S U B 18000 

17505 IF se(q)=21 THEN END 

17510 RETURN 

17990 ’ < < < < 1 < < pun t;uaci on _¡ ugadores > > > > 

18000 se \ q ) = 0 s ac=0: F0R z = l T0 noc (q > : w=z 
18005 GOSUB 13000: 

IF R16HT$ (pací- ( sui t. car > , 2) = " K" 

OR RIGHTÍ(pací(suit.car),2)= " Q" 

OR F; I GHTf (p acT (su it,car),2)=" J " 
THEN se ía> -se (q)+10 
18010 IF RIGHT$(cac$(suit,car),2)=" A" 
THEN se(q)=sc(q)+1:GOTO 18020 
18015 se(q)-se<q>+ 

VAL.. (RIGHT $ (pacf (sui t, cari , 2) ) 

18020 NEXT z:IF ac>0 THEN GOSUE 18200 

18021 LOCATE ce (q ) , 20: F'RINT " " : 

L0CATE ce (q) , 20: PRINT se (q) 

18025 RETURN 


18190 


<<<<<<<ace en mano >>> >>>>>> 

18200 

FOR r 

=1 TO ac 

18202 

IF se 

(q )+1 i>21 THEN se(q)=sc (q) +1 


EL.SE 

se(q)—se(q)+11 

18204 

NEXT 

r 

18205 

GOTO 

18021 


19000 LOCATE i,25:F0R a=l TO 39: 

F'R I NT " " : : NEX T a: RETURN 
19500 FOR t=l TO 3000:NEXT t:RETURN 
19990 7 <<< << << << <dob1ar >> >>>>>> >>>>> > 
20 000 IF m o(a)<b e(a) THEN 14523 

20004 be(a)=be(q>*2 

20005 mo(a)=mo(q)-be(q>/2 

20010 GOSUB 15500 

20011 LOCATE ce (q) ,21:PRINT " 

20012 LOCATE ce<q),21:PRINT be<q) 

20013 LOCATE ce(q>-5,22:PRINT " 
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ZOO 14 LOCATE cc(q>-5,22:PRINT mo(q) 
2’OU2ü ex —cx + 1: c;; (q) =c x (q) +1 
20025 GOTO 14513 

2199 O * < < < < < < < < < < < -fin de juego > > > > > > > > 

22000 GOBUB 19000:LOCATE 1.25: 

PRINT " El dinero de todos los 
ugadores, se acabo" 

22001 FOR so= 100 TO 500 STEF' 5 

22002 SOUND l,so,2:NEXT so 


22005 

GOSUB 

i 

CU nr. 

00: GOTO lC- 

2 2° 90 

.y .y .y 



us o n id o ganar>1 

23000 

FOF: so 

= 

30 

0 TO 100 STEF --1 <1 

23005 

SOUND 

1 

q 'Uü 

o, 1 

23010 

NEXT s 

O 



23015 

RETURN 




23490 

’ •- ..•* 



< <sonid o peder > >) 

23500 

SOUND 

1 

•“U 
*> •»- 

00.20 

23505 

SOUND 

1 

, 0 

, 10 

23510 

SOUND 


cr 

00 , 40 

••***• ~r cr j rr 

RETURN 





Ah or a un a c on ’ MER(3E1 a sub r ut i n a d e 
generac: i on de 1 a baraj a„ 



14 

La carta más alta 



Una pareja no vale nada 

Esta es una versión para ordenador de un popular juego de cartas 
dado a conocer en un programa de televisión. 

Cada jugador comienza con 1 50 £ y se dan 11 cartas boca 
abajo. 

Se vuelve la primera de las cartas y se apuesta hasta un total 
máximo del dinero del jugador. A continuación el ordenador pre¬ 
gunta: ¿Alta o baja? (A o B). Si se acierta, la banca paga una can¬ 
tidad igual a la apostada, si se falla (incluso si la carta es igual) 
el dinero es para la banca. Con las demás cartas se procede de la 
misma forma y el juego termina cuando se han vuelto todas las 
cartas. 

La subrutina de "Puntuación máxima" debe encadenarse a la 
de este programa para elevar el nivel de competición o simple¬ 
mente para anotar las puntuaciones obtenidas en sucesivos jue¬ 
gos. 
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Las partes comunes de este programa con «Black-Jack» no han 
sido listadas. Se debe teclear en primer lugar la subrutina "generar 
baraja" y a continuación las líneas de LA CARTA MAS ALTA. Si va 
a jugar con el programa del siguiente capítulo no borre la subru¬ 
tina "Card-core" ya que le será necesaria. 


i 

J. 

’ < < < < < í < < < h i -lo > > > 



REM 


T 

DIM oa(52).av(52),pací(5,13) 


DIM c i : (.1.1) , c: y (.11 ) , b c 

(11) 

E7 

hi=0:gamí = "hi-1 o":addr=34?98 

£ 

BOEDER 0 


O 

GQSUB 17000 


10 

MODE 1:INK 1.26:INK 
INK 0,0 

2,6:INK 3 

1 1 

WINDOW #3,32.40,25,2 

cr 

12 

PEN 1 


15 

LOCATE 14,17:PRINT " 

HI - LO" 

20 

GOSLJB 10000 



GOSUB 10500 


cr 

wJ 

GOSLJB 11500 


30 

LOCATE 11,19:PRINT " 

Aposto" 

“T cr 

•— 1 uj 

LOCATE 11,20:PRINT " 

Total : " 

“tf "7 

LOCATE 27,17:PRINT " 

Hi-puntos 

40 

tot“150 


45 

be=0 


50 

GOSUB 13500 


60 

GOSUB 14500 


L. ^ 

c — 1 


\_* w 


70 

c;; -c:í (c ) : cy=cy (c ) 


71 

GOSUB 13500 


? 2 

IF c — 11 THEN 25000 


“7 cr 

P1c (1 , 1)=bc(c):q = 1:w 

= 1 

76 

GOSUB 13000:GOSUB 11 

c\ ñ r» 

SO 

GOSUB 14000 


85 

GOSUB 15000 


O ¿L 
uu 

GOSUE 13500 


80 

n 

ii 

n 

n 

+ 

h-* 

n 

lí 

n 

n 


°5 

p 1 c (1 , .1) =b c (c +1 ) : c a— 

car 

100 

q=1:w=1:GOSUB 13000 


101 

GOSUB 11000 


105 

IF car>ca AND aí~"A" 
GOTO 70 

THEN 165 

1 10 

IF carica AND aí="B" 
GOTO 70 

THEN 165 
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115 

GOTO 16' 

000 

120 

GOTO 70 


11490 

* <• <' . : f 

<<< < < di bu i a r cartas>> 

11500 

RESTORE 

11525:FOR a=l TO 11 

11505 

READ o: 

(a > . c y i a > 

11506 

ck=cx (a 

) « c y-cy (a ) 

11510 

G0SUB 1 

1200 

1 1515 

NEXT a 


11520 

RE'TU EN 


11525 

DATA 2, 

i 4 1 & 4 1 n 1 3 i 1 n 4- l“ ¡ n 1 , - •*•!• 4 J. 

1 1530 

DATA 2, 

o i Cü -i o o “ o ~r ,4 Q 

11535 

DATA 2, 

17 

12990 

f •;* 

<<<mirar carta>>>>>>> 

13000 

sui=p1c 

(q, w > / í 3 s 


car=plc(q,w) MuD 13: 



IF car : 

~ 0 

THEN car = 

13 


13005 

IF su i 

> o 

THEN su i t 

= 1 


1 3010 

IF" su i 

1 

■ .L 

THEN suit 



13015 

IF su i 


THEN suit 

r _- T 


13020 

IF su i 

; r . T¡ 

THEN suit 

=4 


13025 

RETURN 





13490 

"<< <<imp 

r i m i r h i , 1 1 

□tal,apue 

sta»> 

13500 

LOCATE 

1 

7,19:PRI NT 

II II 


13501 

LOCATE 

i 

7,19:PRINT 

be 


13504 

LOCATE 

1 

7,20:PRI NT 

ii ii 


13505 

LOCATE 

1 

7,20:PRINT 

tot 


13509 

LOCATE 

O 

S, .1S: PR I NT 

11 II 


13510 

LOCATE 

'*71 

S,1S:PRINT 

h i 


13515 

RETURN 





13990 



<<apuestas 



14000 

LOCATE 

1 

5,24:PRI NT 

"Ti enes 

Ptas"; 


tot 





14001 

LOCATE 

1 

5 „ 25: 




PRINT 

ii o 

wi 

u apuesta 

es " 


14005 

INPUT 

#3 

, be 



14010 

IF be< 

1 

0R be>tot 

THEN 1400 

'5 

14015 

tot-tot- 

be:G0SUB 1 

3 3 0 0 


14020 

RETURN 





14490 

? .:** 


<generar c 

artas>>>) 


14500 

FOR a= 

1 

T0 11 



14505 

c=INT( 

RND(1> *51)+1 



14510 

IF av! 

c) 

=0 THEN 14 

505 


14515 

be ía) = 

03 

i (c > 



14520 

av(c)= 

0 




14525 

NEXT a 
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14530 

I 499Q 


RETURN 




15000 

LOCATE 1 

5.25:FOR b=l TO 

s 


PRINT " 

";:NEXT b 


15005 

LOCATE 1 

5,25:PRINT CHR$ 

(24) 


CHRS(24) 

;"1to / ";CHR*( 

24) : 


CHRí(24> 

;"ajo" 


15010 

a$=INKEY 

% :a$=UPPERÍ (af) 


15015 

IF a$<>“ 

A" AND a$<>"B" 

THEN 

15020 

RETURN 



15501 

LOCATE 1 

5,24:FOR a=l TO 

20: 


PRINT " 

"::NEXT a 


15990 

? .;•* .;•* .;•* .;•* 

< < perder> > >>> >> 


16000 

SOLJND 1 . 

300.20:SOUND 1, 

0, 10 

16010 

SOUND 1, 

500,40 


16020 

IF tot-:! 1 

THEN 26000 



16025 
16490 
16500 
16505 
16510 
16520 
17085 


c=c +1:GOTO 70 

FOR so=500 TD 300 STEP -10 
SOUND 1,so.2:NEXT so 
tot=tot+be#2 
c=c+1:GOTO 70 


C5 V 


MBOL 


:,c:: 4, 254, 16,56 


17090 SYMBOL 227,16,56,124,254,124,56,16 

54,254,254,124,56, 


17095 
1 6 , 0 
17 100 
o 

M - 

17105 
1 1 1 o 
19500 
24 990 
25000 
25005 
25010 
25990 
26000 

26005 
26010 

niSX (R£ 


SYMBOL 

SYMBOL 


jo i jl «s ¿. 


56,124,254,254,16,56 


MEMORY 3 4999:GOSUB 29500 
RETURN 

FOR t=l Tu 3000:NEXT t:RETURN 
’ < < < < < < < max i mas pun t uaci on es > > > > 
IF tot>hi THEN hi=tot 
s c — t o t : G 0 S U B 6 O O O O 
SOTO 10 

■ <<<<<<<<<< <sin di ñero>>>>>>>>> 
LOCATE 15.25:FOR a=l TO 25: 

PRINT " "::NEXT a 

LOCATE 15.25:PRINT "Sin b1 anca 1 " 
G O S U B 19 5 O O: G O T O 10 
u n a í::: o n M E R G E1 a s s u b r u t. i n a s d e 
:i d a d e c a r a c t e r e s ’ , ’ p u n t u a c i o n 

O, y generación de baraja'» 
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Parejas 



Busca la pareja 

Este es un juego sencillo pero que requiere buena memoria y una 
gran concentración. 

Cada jugador selecciona dos cartas; si son iguales, entonces 
se le puntúa y se las aparta de la pantalla. A continuación el si¬ 
guiente jugador tratará de casar otras dos... El juego termina cuan¬ 
do no quedan cartas y el ganador es el que haya casado más 
parejas. 

En algunas versiones de este juego se permite levantar otras 
dos cartas al jugador que consigue una pareja, sin embargo, en 
esta versión de 12 cartas, es más divertido que el jugador no pue¬ 
da repetir turno. 

Para este juego hace falta el mazo de "microcartas" y la su¬ 
brutina para barajar. Ambas se pueden cargar con "MERGE” del 
programa anterior. Con este tendremos nuevamente un extenso 
programa que utiliza la memoria ampliamente sin necesidad de ha¬ 
ber tecleado más. 
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Aquellos lectores interesados en el incremento de los fondos 
destinados a caridad o educación, quizá quieran saber cómo les 
puede ayudar este micro. ¡Sólo tienen que encender su ordenador 
y cobrar un tanto a sus invitados por el privilegio de pulsar sus 
teclas! 


1 

J 3 3 3 3 3 c o n c e n t. r a c i o n 1 > > > 

i o 

OLEAR 

2 0 

DIM nací (5, 13) , ce (3) , se (2) 

30 

DIM pa<52>,av(52) 

40 

DIM ex(12),cy < 12) 

50 

DIM ca(12).be(12) 

¿h 0 

DIM pie(1,2),ac ( 12) 

70 

SYMBOL ASTER 223 

so 

GOSUB 17000 

90 

CLS : GOSUB .10000 

100 

IIMK 0,0: BORDER 0 

1 10 

se ( 1)-0 : se ( 2 ) “0 

. 1 . 20 

GOSUB 10000 

130 

GOSLJB 10500 

135 

PAPER 0: F'EN 3 

140 

GOSLJB 11500 

150 

GOSUB 12000 

160 

POR a=1 TO 12 : ac ( a )= 1 : NEXT 

.1.70 

WIND0W #3.18 , 40 , 25,25 

1 SO 

P“1 

190 

GOSLJB 14500 

200 

GOSUB 13500 

210 

GOTO 14000 

220 

IP p = l THEN p-2 EL.SE p=l 

230 

GOTO 190 

.1 1295 

’ 3 3 3 333 3 3333 3 borrar ca r tai> 

1 1300 

LOCATE ex - 1 , cy 

11305 

POR y = 1 TO 7 

1 1310 

LOCATE ex - 1 , cy+v-1 : PRINT " 

11315 

NEXT y 

1 1320 

RETURN 

1 1490 

? 3 3 3 33 33 3 <33generar car t a s 

1 1500 

RESTORE 11570:SOR a=i TO 1 

11501 

ca(a)=1:NEXT a 

11504 

POR a=l TO 12 STEP 2 

11505 

READ el,c2 

1 151 0 

c=(RND(1)*11)+1 

11515 

IF c a(c)=0 THEN 11510 
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11520 be (c ) =c: licaíc) =0 
11525 c=(RND(1) t 11)+1 
11530 IF cate)=0 THEN 11525 
11535 be(c)=c2:ca(c)=0 


1 1540 

NEXT 

3 

11545 

FOF: 

a=l TO 12 

11550 

READ 

C X \ 3 ) u C V \ 3 ) 

11555 

NEXT 

a 

11560 

RETURN 

11570 

DATA 

1 14 ? 1 S “T 1 A 4 1 T i p 1 o 

115 £30 

DATA 

2 1 1 O 1 IR! A 1 

11585 

DATA 

2, 9, 10, 9, 18, 9, 26, 9 

.11590 

DATA 

2,17,10,17,18,17,26, 17 

11990 

y •:** •:** 

< < < < < < p i n t ar p an t a 11 a > > > > > > > > 

12000 

MQDE 

1:INK 1,26 sINK 2,6:1NK 3,14 

12004 

FOR 

a=i TO 12 

12005 

cx=c: 

x (a):ey-cv(a) 


12010 GOSUB 11200 

12011 LOCATE ex(a)+1, cy< a)+7:PRINT a 
12015 NEXT a 

12020 LOCATE 33,3:PRINT "Puntos i" 

12025 LOCATE 33,6:PRINT "Puntos 2" 

12030 LOCATE 32,15:PRINT "Jugador 1" 
12035 LOCATE 32,17:PRINT "Jugador 2" 
12040 RETURN 

12990 ? <<<<<<<<<<<mirar carta>>>>>>>>>> 
13000 su=plc(q.w)/13:car=plc«q.w) MOD 13 
:IF car=0 THEN car=13 
13005 IF su>0 THEN suit=l 
13010 IF su>1 THEN suit=2 
13015 IF su>2 THEN suit=3 
13020 IF su>3 THEN suit=4 
13025 RETURN 

13490 ’<<<<< << <<entrar numero>>>>> > >>>> 

13500 LOCATE 1,25:FQR a=l TO 30: 

PRINT " " 5 :NEXT a 

13504 LOCATE 1,25:PRINT "Primer num."; 

13505 INF'UT #3, ni 

13510 IF nl<l OR ni>12 THEN 13505 

13511 IF ac(ni)=0 THEN 13505 

13515 plc(1, 1)=bc(ni):q = l:w=1 
13520 GOSUB 13000: ex =c¡< (ni) : cy=cy (ni) 
13525 GOSUB 11000 

13530 LOCATE 1,25:PRINT "Sequndo num,"; 
13535 INF'UT #3,n2 
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1 

3540 

IF n2<1 


OR 

n2>12 

THEN 

13535 

1 

3541 

IF acín 

n 

) =0 

THEN 

13535 


1 

3545 

p 1 c (1,2 

) 

=bc 

(n2) : 

q -1: w— 


1 

3550 

GOSUB 1 

p; 

rt n ó 

£ C .- i ^ C 

(n2) : 

c yar C y ( n 2 ) 

1 

3555 

GOSUB 1 

1 

000 




1 

3560 

RETURN 






1 

TQCl'i 

* <* <* 


< < c 

orno r o 

bar par > > > > > > > )■ 

i 

4000 

q=1 : w— 1 

: 

GOS 

UB 13 

000 


1 

4005 

cal-car 

: 

q*l 

: vj=2: 

GOSUB 

13000 

1 

4010 

ca2-oar 






1 

4015 

IF cal= 

(— 

_ , 

THEN 

15000 


1 

4020 

LOCATE 

1 

. 25 

: FOR 

a-1 TO 

30: 


F'RINT " " : : NEXT a 

14025 LOCATE 1,25: F'RINT "No hay pare-, a" 
14030 GOSUB 19500 
14035 c s< ~c x (ni) : c y=cy (ni) 

14040 GOSUB 11200: cx=c;: <n2) :cy=cy(n2) 

14045 GOSUB 11200:GOTO 220 

144?O ’ <<<< <<<escribir p la ntos>>>>>>>> 

14 500 F'EN 1 : LOCATE 33.4 : F'F; I NT se (1 ) 

1 4505 LOCATE 33.7: F'F: I NT se (2) 

14510 IF p~l THEN LOCATE 32, 15:PAPER 1: 
F'EN O: F'RINT "Jugador 1 ” : F'EN 1: 
PAPER O:LOCATE 32,17: 

F'RINT "Jugador 2" 

14515 IF p~2 THEN LOCATE 32.17:PAPER 1: 
F'EN O: PRINT " J uqador 2" : F'EN 1 : 
F'AF'ER O: LOCATE 32.15: 

F'RINT "Jugador 1" 

14520 RETURN 

14990 ’ < < < < <' < < < < < < oare , a > > > > > > > > > > > > > > > 

15000 LOCATE 1.25: POR a-1 TO 30: 

F'RINT " " ; ;; NEXT a 

15005 LOCATE 1,25: F'RINT "Pareja" 

15006 ao(ni)=0:ac(n 2)=0 

15007 FOR so-500 TO 100 STEP -10: 

SOUND l.so.l:NEXT so 


15010 

GOSUB 19500 


15015 


i > 

15020 

GObUE 1 l -'OO: 

(n2) s cy=cy (r»2) 

15025 

GOSUB 11300:seíp) 

( p ) 4- 

15030 

IF se(l)+sc(2)=30 

THEN 15500 

1 Sfirmr 

GOTO 220 


15490 

7 : Fin del 

juega)>>>>>>? 

15500 

CLS:PEN 1 
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15505 PRINTSPRINT "Puntos jugador 1 
so (1) 

15510 PRINTSPRINT "Puntos jugador 2 


155 1 5 PRI NT :PRI NT :LOCATE 5 , 1 0: 

PE I NT 

"pulse ’ ESPACIO 1 ’ para rugar otra vea 
15520 LOCATE 10.12: 


PRINT "o ’F’ para acabar." 


15525 a$-INKEYf 

15530 IF a$~" " THEN 10 

15535 IF a$-"F M OR a*="í" THEN END 

15540 GOTO 15525 

17085 RETURN 

19500 FOR t=l TO 3000:NEXT t:RETURN 


si 


A h o r a u n a c o n ’ ! v ! E R G E1 a s u b r u t i n a 
gener ac i on de bar a j a„ 


d 0 
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Mastermicro 



Ponga color a sus ideas 

Hay versiones de este juego adaptadas para casi todos los micros. 
Hemos puesto gran interés en darle una buena presentación para 
que sea entretenido. 

El objetivo es adivinar una combinación secreta de seis colores 
colocando una serie de símbolos de color, en línea. 

El Amstrad le dirá cómo ha estado de acertado utilizando una 
serie de caras y símbolos. 

Una cara sonriente indica que ha dado con el color y con su 
posición exacta. 

El signo ♦—► le indicará que no ha acertado ni el color, ni la 
posición. 

Una cara seria significa que el color es correcto pero no así su 
posición. 


Seleccione los colores mediante un «joystick» o con las flechas. 
Con el botón "COPY" introduzca su elección. Por el mismo proce- 
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so elija los demás colores hasta completar la fila. Dispone de diez 
oportunidades por juego para dar con la secuencia correcta. Si fa¬ 
lla, el ordenador presentará la solución en la parte superior de la 
pantalla y permanecerá a la vista para permitirle analizar sus fa¬ 
llos. Con las letras S/N decide si continuar jugando o terminar. 

El juego puede practicarse también de forma competitiva. Cada 
jugador deberá entonces intentar dar con la solución antes que los 
demás. 


•t 0 '' < < < < < < < < < mi c r om i n d > > >> > > > > > > > > 

15 

20 INF'UT "COLOR (S/N) ?".af 

22 a$~UPF'ER$ <a$) 

25 IF a$="S" THEN gr»0 ELSE qr-1 


31 NEMORY 34990:addr-3499? 

32 GÜSUB 29500 

35 GOSUE 11500 

37 FEN 1 

40 FOR a~1 TO 4 

45 LOCATE (a*3)-2,2:PRI NT CHR* (143> s 
CHRí- (143) 

46 NEXT a 

50 n ~ 1:FOR y=4 TO 22 ETER 2: 

LOCATE 1 „ y: FOR ::~1 TO 9 STEP 3: 

PRINT CHRf(143);CHR*(232):" ";: 



NEXT ::: F'RINT 
n=n+l:NEXT y 

CHR$(143);CHRS(23 

55 

try-l 


60 

GOSUE 10000 


c " r 

GOSUE 10500 


70 

GOSUE 12500 


7n 

/ o... 

IF a$-"SSSS" 

THEN 14000 

~ 7 7 

a$~" " 


75 

try=try+1:IF 
ELSE GOTO 65 

try=11 THEN 13000 

OO/jO 

END 


OOO(-) 

’ < << < <<<< <pen 

sar secuencia/>>> 

10000 

FOR pla=l TO 

4 

10005 

n=INT(RND(1)K 

4) +2 

100 :l 0 

nn(pla)=n 


10015 

NEXT pía 


10020 

RETURN 
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1049O ’<<< < < < < < <meter c o1 or es > >>>> > >>> > 

10500 IF gr=l THEN GOTO 10502 
ELSE LOCATE 3.24 

10501 PEN 2:PRINT CHR$(143)::PEN 3: 

PRINT CHR*(143)::PEN 4:PRINT 
CHR$(14 3);:PEN 5:PRINT CHR*(143) ; ; 
PEN ¿SPRINT CHRÍ(143);:PEN 7: 

PRINT CHRf(143)sGOTO 10505 

10502 LOCATE 3,24:PEN 2:PRINT CHR*<34>;: 
PEN 3:PRINT CHR*<35);sPEN 4: 

PRINT CHRS(36);:PEN 5: 

PRINT CHRÍ(37);;PEN 6: 

PRINT CHR*(38);:PEN 7: 

PRINT CHR$(39) 

10505 t x = 1 
10507 c’.-25 

10510 LOCATE ex,cy:PRINT 

FOR t-0 TO ÍOsNEXT t 
10515 LOCATE ex, cy: PRINT " " 

10520 GOSUB 29000 

10525 IF 1e=l AND ex >3 THEN cx-cx-1 
10530 IF r i --1 AND ex<8 THEN cx=cx+l 
10535 IF ti~1 THEN 10600 
10540 GOTO 10510 
10600 De=c::-1 

10605 LOCATE tx,try*2+2:PEN pe: 

IF gr = 1 THEN PRINT CHR$(32+pe) 

ELSE PRINT CHR$(233) 

10610 tx“tx +3:pe(tx/3)=pe 
10615 IF tx“13 THEN RETURN 
ELSE GOTO 10510 

11 4 9 O ' < < < < < < í "(dibujar cabeza) > > > > > > > 

11495 SYMBOL AFTER 223 

11500 MODE O:INK 1,24:INK 2,11:1NK 3,18: 
INK 4,24:1NK 5,26:INK 6,6:1NK 7,7 

11501 PEN 1 

11502 PEN 6:LOCATE 2,1:PRINT "MICROMIND" 
: PEN 1 

11505 MQVE 580,50:DRAW 560,110 
1151O DRAW 605,180:DRAW 615,220: 

DRAW 615,250 

11520 DRAW 605,290:DRAW 555,320: 

DRAW 485.320 

11525 DRAW 415,290:DRAW 395,250: 

DRAW 365,200 
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11530 

DEAN 375. 

195:DRAW 

390,190 


DRAW 400, 

170 


11535 

DEAN 395, 

165:DRAW 

400,160 


DRAW 395, 

155:DRAW 

400,150 

1 1540 

DRAW 4ü0, 

145:DRAW 

395.140 


DRAW 395, 

130 


11545 

DRAW 400, 

125:DRAW 

415,120 


DRAW 425, 

110 


11550 

DRAW 430, 

95:DRAW 

405.50: 


MOLE 410, 

250:DRAW 

430,245 


DRAW 410, 

240 


11555 

PEN 2:LOCATE 15,1 

0: PRINT 


; PEN 31 LOCATE i 6, ?: PE I NT CHRf (1 43) 
5:PEN 4:PRINT CHRf(143)3 PEN 5: 
LOCATE 


11560 


.1 i: 


PEN 7;LOCATE 17,12:PRINT CHRf(143) 
: F'EN 3: LOCATE 16,13: 

PRINT CHRf(143):PEN 15: 

LOCATE 16,15:PRINT CHRf(143) 

SYMBOL 250,126,255,153,255,255,129 

i 


:n i 


11570 

RETURN 

11990 

<<<<<<<compr 

12500 

af " " ; t ;i ™2: PE 

12505 

FOR ;; = 1 TO 4 

12510 

IF pe(x)=nn <x 


LOCATE tx.tr v 


4) THEN 

+2:PRINT CHRf(224): 
ELSE LOCATE tx, trv*2+2: 


PRINT CHRf(2 


=¡ > 


af~3f+“X“ 


12511 tx»tu+3 
12515 NEXT x 

12521 do=0 

12525 POR x = 1 Tu 4 

12526 IF MIBf (af , x , 1) -"3" THEN 
SOUND 1,100,10:GOTO i2550 

12530 IF pe í x) =nn (1) AND LEFTf (af, 1) ="X" 
THEN LOCATE tx,try*2+2: 

PRINT CHRf(250):SOUND 1,300,10: 
do=l 

12535 IF pe! x) =nn (2) AND MI Df (af, 2, 1) = 
"X" THEN LOCATE tx,trv*2+2: 

PRINT CHRf(250):SOUND 1,300,10: 
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125 40 

IP ! 

□ 0 ( 

;) -nn (3 

> AND MIDí 

( 3 * 

T 

1 > m 

1 •• 


11 y ji 

THEN LOCA 

TE tí; „ trv t : 

2+2 

I 



F'R I 

NT i 

3HF:í (25 

0):SOUND 1 

, 30 

0 „ 

10 : 


dü= 

1 

.1 






12545 

IF 

□ e < ; 

;{) =nn ( 4 

) AND RIGHTíí 

aí 

, 1 > = 


ii V* 11 

THEN LOCA 

TE t:; , trvl 

2 -*-• 2 

: 



F'RI 

NT i 

CHRÍ(25 

0):SOUND 1 

n 30 

r> 

* 

10 : 


do= 

1 






12546 

IF 

do — 1 

0 THEN 

SOUND 1,45 

0,1 

(j 


12550 

t;: = 

t;: + 

3: SOUND 

1,0,5:NEX 

T 



-j •” cr rr cr 

RET 

L'RN 






1 OOO f\ 



• 3 0 C Lí © 

ncia perde 

dor 

a 


13000 

|Tpp 

3. 

1 TO 4 





13003 

PEN 

nn 

(a > 





13010 

LQC 

ATE 

(a*3) - 

2.2: F'R I NT 

CHF: 

•± 

1 43 ) « 


CHF: 

* ( l 

43) 





13015 

NEX 

T a 






13025 

LOCATE 

13 i 5 F : 

RINT "Lo s 

i en 

10 

11 

1302¿ 

POR 

se 

= 100 TO 

500 ETER 

10 : 




SGU 

ND 

1 4 Q u 3 ¡¡ 

NEXT so 




i 3030 

rz. n t 

V—' w i 

n 1 

4 021 





13990 

1 •• .•* 


en. -ra r~ * ; 

encía gana 

dor 

a I 


1 ¿loo*"' 

POR 

a= 

1 TO 4 





14005 

PEN 

nn 

< a > 





1 a <1 r. 

LOC 

ATE 

{ - > __ 

22: PEI NT 

CHF: 

'<* ( 

143) 2 


r;Hp 

■± ! i 

4 3 ) 





14015 

NEX 

i 3 . 






14020 

LOC 

:ATE 

1 4. 1: F 

RINT "Lo h 

i r 

s t 

11 „ 


LOC 

ATE 

12 . 2 : F 

•RINT"er. "; 

t r y 



1 4021 

LOC 

:ATE 

14,23: 

F'RI NT "Otr 

a * 

• cr. 

n „ 


L O C A TE 13.24: P R: IN T " < S / N) " 
14022 FGR s=l TQ 2 

14 023 POR se=500 TC 100 STEF' -50: 


SOUNE) 1 . so. 5: NEXT so 

14024 POR so=100 TO 500 ETER 50: 

SOUND 1,so,5:NEXT so:NEXT a 

14025 a*«INKEYt 

14030 IF a$ = "s" OF. a* = "S" THEN 35 
14035 IP at~"N" OF, a«~"n" THEN CLS: ENI) 
14040 GOTO 14025 

Ahora una con ME,RUEla subrutina ds 
entrada ds caractoros ' 
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O'Grady dice: teclea el listado 

Hasta donde yo sé, esta es la primera adaptación para ordenador 
de este conocido juego al que también se le llama «Simón dice». 

Este programa puede ser muy útil para enseñar el concepto de 
derecha e izquierda, pero ¡cuidado! se trata de la derecha e iz¬ 
quierda de la figura del programa y no de la suya. 

Al comenzar el juego se le da un punto. El mensaje inserto en 
el globo le indicará los movimientos que debe hacer así como el 
nombre de la persona que da la orden. Si es O'Grady quien dice 
"hágalo", entonces proceda lo más rápidamente posible. Si es 
O'Riley entonces no le haga caso. El muñeco de la parte superior 
de la pantalla obedece todas las órdenes. 

Cuatro son los movimientos que le pueden pedir que haga: arri¬ 
ba o abajo se ejecutan con las flechas " t " y " i izquierda y 
derecha con "" y " <- " (el punto de referencia es la figura de 
la pantalla), así, pulsando " <- " levantará el brazo derecho del 
muñeco. 
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Este lío se ha introducido con el fin de complicarle un poco las 
cosas. No le resultará fácil determinar cuándo es la derecha y 
cuándo la izquierda y si O'Grady dijo "hágalo". Si empieza a jugar 
comprenderá mejor a qué me refiero. 

La agilidad mental es importante en la respuesta a este juego 
ya que la ausencia de acción puede interpretarse como algo inten¬ 
cionado. Si es así perderá puntos y, en el mejor de los casos, igual 
resulta que no hacer nada era la respuesta correcta. 


i ’ <<<<<< <<D’ Bradv dice>>>>>>>>>> 

O ? 

10 O M E M ü F; Y 3499 0 

110 addr=34999:GOSUB 29500 

500 50SUB 20000 
5 O 5 s c=O: t u=O 

5 i O ’ < < < < < ■' < < b u c 1 e p r i n c i p a 1 > > > > > > > > 

515 og=INT«RND<1)*2)+1 

51.ó tu=tu+l 

520 do-INT(RND<1)*4 > +1 

521 CLS #1 

522 GOSUB 21040:GOSUB 21060: 

GOSUB 21140:GGSUB 21160: 

525 IF og=l THEN PEN #1,4: 

PRINT #1,"O’GRADY DICE," 

530 IF og=2 THEN PEN #1,4: 

PRINT #1,"O’RILEY DICE," 

535 IF po=l THEN PEN #1,5:PRINT #1: 
PRINT #1."ARRIBA"sGOSUB 21000s 
GOSUB 21020 

540 IF po=2 THEN PEN ttl,5:PRINT #1: 
PRINT #1," ABAJO":GOSUB 21060: 
GOSUB 21040 

545 IF po=3 THEN PEN #1,5:PRINT #1: 
PRINT #1,"DERECHA": 

G O S U B 210OO:GOSUB 2106O 
550 IF po=4 THEN PEN #1,5:PRINT #1: 
PRINT #1,"12QUIER-DA": 

GOSUB 21020:GOSUB 21040 
555 t=0 


GOSUB 29000 

IF 1e+ri+up+do=0 THEN t=t+l: 

IF t=40 THEN 6.10 ELSE GOTO 560 
IF ri=l THEN GOSUB 21120: 

GOSUB 21140 
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cr-7 cr 

IF le=l THEN GOSUB 21 
GOSUE 21160 

100: 

580 

IF up = l THEN GOSUB 21 
GOSUB 21120 

100: 

585 

IF do=l THEN GOSUB 21 
GOSUB 21160 

1 40: 

59o 

IF po=l AND up—1 AND 
THEN 2000 

og-1 

595 

IF po=2 AND do=1 AND 
THEN 2000 

OQ=l 

¿00 

IF po : =3 AND ls=l AND 
THEN 2000 

og= 1 

605 

IF po=4 AND r i = 1 AND 
THEN 2000 

og — 1 

610 

IF t=40 AND og-2 THEN 

CL.S #1: 


F'EN # 1,6: PRI NT #1," 

BIEN HECHO 


:PEN #1,4:PRINT #1,"0 

F RILEY": 


F'EN #1,6: F'F; I NT #i,"LQ 
so =sc +1:GOSUB 2500 

DIJO": 


ó11 IF t=40 AND 

FOR son=500 
SOUND 1,son. 


og-2 TIMEN 
TO 100 STEP -30: 
1O:NEXT son:GOTO 


1 K:r 

Í..Í X 

IF oq=2 AND 1e+ri+up+do<>0 

THEN 


CLS #1:PEN #1,6:PRINT #1, " 
PEN #1,4:PRINT #1: 

MAL ! 


PRINT #1,"0’R I LEV":PEN #1. 

Í2> S 


PRINT #1:PRINT #1,"LO DIJO 
sc=sc-l:GOSUB 2500 


616 

IF oq-2 AND l’e+r i +uo+do< >0 
FOR 50=1 00 TO 200 STEP 10: 

THEN 


SOUND 1,so,5:NEXT so:GOTO 

625 

617 

IF t—40 AND oq-1 THEN CLS 

#1 : 


F'R I NT tt 1, " FUERA DE TI EMF'Q ! 
sc=sc-l:GOSUB 2500 

M B 

618 

IF- t=40 AND og= 1 THEN 

FOR so~100 TO 200 STEP 10: 



SOUND 1,so,5:NEXT so:GOTO 

635 

620 

CLS # 1: F'F: I NT #1:F'EN #1,5: 
F'RINT # 1, " MAL !" 


621 

FOR so—100 TO 500 STEP 50: 
SOUND 1,so,10:NEXT so 


625 

sc=sc-1:IF sc<1 THEN 700 


630 

GOSUB 2500 


¿ "rcr 

FOR t=l TO 1000:NEXT t 


640 

GOTO 515 
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90 

n 



fin del juego 




“7 

oo 

ni - 

#2 

sPEN #2,5: 






F’RIN 

T 

#2, 

" MALA SUER 

TE 

H 



; t u: 

PR 

I NT 

#2." TURNOS. 

li 



“7 

05 

F0R 


1 T 

0 2000:NEXT t 




“7 

10 

OLE 

#i 

s CL 

S #2:PEN #2,5 

£ 





F’R IN 

T 

i 

#2, 

"PUNTOS" 




~r 

15 

M0DE 

0 

:GOTO 500 




i 

o o o 

=* . 



correcto .> .■■■ > > 





000 

CL.3 

#1 

: PR 

INT #1."CORRE 

c 

TO ! 

II 

7*’ 

005 

FQF: 

so 

=20 

0 TO 100 ETER 


..... ^ « 




S0UN 

D 

1 ' üS 

o.5:NEXT so 





010 

C ~ 2 

c + 

1: G 

ÜSUB 2500:GOT 

0 

~r 

L-' ‘ 

cr 

w i 

•“D 

490 




<escribir oun 

t 

O s > 



500 

F’R INI 

#2. 

4sREINT #2.ec 





505 

RETURN 






•} 

99 SO 




<<cantal 1a>>> 




2 

0000 

c* c C - 

n u... u ! 

OR 

E 2 

0000 





OO 1 o 

FQF; 

n = 

0 TO 15 





0020 

READ 

a 






n 

0030 

INK 

n . 

3 






0040 

NEXT 

n 






O 

0050 

DAT A 

0 

n /. 
H J ~ 

,3, 18,24.24,2 

4 

1 -■ 


O 

00 ¿0 

DATA 

0 

( \ 

•i •! 

0 , 0 , 0 , 0 , 0 „ 0 




2 

01 oo 

BOEDER 

í”? " 

PAPER 0:PEN 1 

£ 

MQD 

E 


0110 

WIND 

OW 

#1 

,2,9,3, 10 





0120 

WINDOW 

#2 

, 2,9,14,20 




o 

0130 

PAPE 

R 

#1 , 

2:PEN #1,5:CL 

S 

#1 



0140 

PAPE 

R 

#2, 

2:PEN #2,5:CL 

E 

#2 


2 

0150 

F'LOT 

3 

0. 3 

70.5:DRAW 292 

„ 

3 7 0 


**7 

0160 

DRAW 

-.i 

O'7 

.• j-. <« 

237:DRAW 30.2 

3 

— 


o 

0170 

DRAW 

cr 

33 

0:DRAW•30,252 

£ 

DRAW 

“•j 

0130 

F'LOT 

3 

í"l 1 

H o. 

95:DRAW 292,1 

9 

nr 



0 1 9 0 

DRAW 


oo 

. * 

77:DRAW 30,77 





0200 

DRAW 


0. 1 

30:DRAW 5,202 

; 

DRA 

W 


0210 

PRIN 

T 

#2: 

F'RINT #2, "pu 

n 

tos 

II 


0220 

PLÜT 

4 

SO, 

325,5:DRAW 48 

Q 

rr.; 

Q 

2 

0230 

D R A W 


30, 

250,9:DRAW 54 

o 

•. 26 

o 

/ 7« 

02 40 

F’LOT 

4 

80, 

325:DRAW 530, 

3 

40 


2 

0250 

DRAW 

rr 

j 

40, 

365: F’LOT 430, 

-*7 

5 0 • 

i 

*•7 

0260 

DRAW 

4 

.'. i i 

250:DRAW 420, 


60 



0270 

F'LOT 

.•1 

*4 

80, 

325:DRAW 430, 

3 

40 



20280 DkAW 
20290 F'LOT 
20300 DPAW 


420,365 

4SO.325.S :DRAW 500,290 
4SO,250 :DRAW 500,290 
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20310 DRAW 490,200 

20320 F'LOT 480,325, 10: DRAW 500,290 
20330 DRAW 480,250:DRAW 460,225 
20340 DRAW 470,200 
20500 PLOT 480,150,5:DRAW 480,75 
20510 DRAW 530,75,13:DRAW 540,85 
20520 PLOT 430,150:DRAW 530,165 
20530 DRAW 540,190:PLOT 480,75,15 
20540 DRAW 430,75:DRAW 420,85 
20550 PLOT 480,150:DRAW 430,165 
20560 DRAW 420,190 

20570 PLOT 480,150,12:DRAW 500,115 
20580 DRAW 480,75:DRAW 500,50 
20590 DRAW 490,25 

20600 PLOT 480,150,14:DRAW 460,115 

20610 DRAW 430,75:DRAW 460,50 

20620 DRAW 470,25 

20630 TAG #3:PLOT 0,0,5 

20640 MOVE 466,344 : PRI NT #3, CHR* < 224 ); 

20650 MOVE 466,169:PRINT «3,CHRÍ(224); 

20660 F'LOT 0,0,0 

2.0670 GOSUB 21040: GOSUB 21060 

20630 GOSUB 21140:GOSUB 21160 

20750 RETURN 

21000 INK 11,24:INK 10,0 
21010 RETURN 
21020 INK 9,24:INK 8,0 
21030 RETURN 


2.1040 

INK 

10, 

24: 

I NK 

1 1 , 

21050 

RETURN 




21060 

I NK 

O 

UJ H ai. 

4: INK 

9,0 

21070 

RETURN 




21100 

INK 

15, 

24: 

I NK 

: 14, 

21110 

RETURN 




21120 

INK 

13, 

24: 

INK 

: 12 , 

21130 

RETURN 




21 140 

INK 

14 , 

24: 

INK 

: 15. 

21 150 

RETURN 




21160 

INK 

12, 

24: 

INK 

: 13, 

21170 

RETURN 





Ahora una con ’MLRGE' la subrutina de 
e n t r a d a d e c a r a c: t e r e s„ 
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Cotorras 



¿Cuál es el programa más bonito del libro? 

Se encuentran en pantalla cuatro preciosas cotorras, cada una de 
un color diferente, y cada una sujetando una cuerda con la boca. 

Cuando empieza el programa las cotorras tiran de la cuerda 
consecutivamente. Al principio sólo darán un tirón y entonces ten¬ 
drá que adivinar en qué orden lo hicieron. 

Los balancines de las cotorras se corresponden con las dife¬ 
rentes teclas de flechas. Pulsando " t " la cotorra que está más 
arriba tirará de la cuerda, pulsando " " será la cotorra que está 

más abajo, y así sucesivamente. Como siempre, podrá usar un 
«joystick» para sustituir a las flechas. 

El ordenador produce una secuencia que empieza siendo muy 
fácil pero que llega a durar bastante. En las comprobaciones del 
programa no hubo nadie capaz de acertar secuencias de más de 
25 movimientos, aunque la amnesia suele empezar a partir de 12. 
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Tal y como está el programa, las cotorras pueden producir secuen¬ 
cias de hasta 50 movimientos. Si es capaz de retenerlos, no cabe 
duda de que posee una memoria fotográfica, jo quizá sea usted un 
androide! 


Puede ser muy divertido jugarlo en fiestas, haciendo pagar al¬ 
gún tipo de «prenda» a los perdedores. 

02 REM << :: COTORRA >>' 

" r p¡r|v| 

5 ADDR=34999: GOSUB 29500 
10 SYMBOL AFTER 223:M0DE O 

12 DIM NO(50) 

13 INK 0,0:BOEDER O:INK 12-12 
15 GOSUB 10000:GOSUB 10500 

25 SC-O:HI=0 
30 GOSUB 12500 

35 FOR A=1 TO -1 

36 IF A=1 THEN PEN 7 ELSE IF A=2 THEN PE 
M 11 ELSE IF A=3 THEN PEN 14 ELSE PEN 13 
4 O G O S U B 110 O O: N E X T A 

55 P0= O: CALI... &BB03 

58 REM >>>» BUCLE PRINCIPAL <«< 

60 N=INT(RNB(1)*3>+l 
62 P0=P0+1 

65 NO (F'O) ~N 

66 GOSUB 13500: LOCATE 1,22:PRINT "MI TU 
RNO" 

70 FOR B=1 TO FO 

75 GOSUB 13000 

SO NEXT B 

82 CAL..L ?•:BBO3 

85 FOR T-1 TO 1000:NEXT T 

87 B=1 

SS GOSUB 13500:PEN 1:LOCATE 1,22:PRINT " 
TU TURNO" 

90 GOSUB 29000 

95 IF LE-1 THEN A=4:S0UND 1,800,10:GOSUB 
12000:PEN 13:GOSUB 11500:FOR T=1 TO 500 
:NEXT T 

100 IF RI = 1 THEN A=2:S0UND 1,400,10:GOSU 
B .12000: PEN 11: GOSUB 11500: FOR T=1 TO 50 
O: NEXT T 

105 IF UF'-l THEN A=1:S0UND 1,200,10:GOSU 
B 12000:PEN 7:GOSUB 11500:FOR T=1 TO 500 
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:NEXT T 

110 IF DO= 1 THEN A=3:S0LJND 1,¿00,10:GOSU 
B 12000:PEN 14:G0SUB U500:F0R T=í TO 50 
Os NEXT 7 

115 IF L E + RI +UP+DO<1 THEN 90 
120 G03UE 12000 

130 IF NO«B)=A THEN 131 ELSE 135 

131 IF B=PO THEN GOSUB 13500:LOCATE 1,22 
s PEN 1 SPRINT "BIEN HECHO, " ; Pü; 11 HASTA A 
QUI " 

132 IF B=FO THEN POR T=1 TO 1500:NEXT T: 
G O S U B 13 5 O O: G O T O 6 O 

133 B=B+1:GOTO 90 
135 GOSUB 13500:PEN 1 

140 LOCATE 1,22¡PRINT "SECUENCIA ERRONEA 


145 LOCATE i,23:PRINT "TRAS ";P0~1;"INTE 
NT OS " 

150 FOR T=1 TO 3000:NEXT T 
155 GOSUB 13500 

1¿O LOCATE 1,22SPRINT "LA SECUENCIA ERA" 

165 FOR T-l TO 1000:NEXT T 

170 FOR B=1 TO PO 

17 5 G O S U B 13 O O O 

ISO NEXT B 

135 GOSUB 13500 

190 LOCATE 1,23SPRINT "INTENTALO DE NUEV 
O" 

195 FOR T=1 TO 2000:NEXT T 
200 GOSUB 13500 
205 GOTO 55 

9990 REN >>> CARACTERES <<< 

10000 SYMBOL. 224,16,16,16,16,0,14,31.63 
10005 SYMBOL 225,O,O,28,126,127,207,207, 
207 


10010 SYMBOL 
10015 SYMBOL 
10020 SYMBOL 

o nr ur cr cr 
H a- :J X.J ,¡ aC U %J 

10025 SYMBOL 
i0030 SYMBOL 
10035 SYMBOL 
,247,251 


226, O, O, O, O, O, 128, 12S 
227,63,49,40,3,16,33,35,3 

OOP Oi=;io oe;cr nq/l 10/1 1 O L 'ice 

J — 1 ■*— 4 J— wJ uJ 4 u.J r 4 X T i| 1 j—. U 4 wJ 


9^0 f) O O O o 1 PP 1 i on 

J - •*— • 4 4 4 - 4 7 |l v || J. Uw 4 1 .• 4 I / 

O “S “T “T "T T 1 1 -I 

•— H 4 4 4 *—* 4 4 ¿ Jl -L 4 .1 

1 IOI IO i '*?'•?*? r " ~ 

J— —J 4 *'••• 1 4 J. J. 4 1 j— j_ w 4 u—. j.. •„* 4 •_ 







Cotorras 133 


,240,248 

1,0, 0,0,56,127,0,0 

~nr“f •i' - »- -j .'i /! O cr /-» 

a-J j q .1 , I -2. q .¿.n n 4ü q , U q 

(I) 


10045 SYMBOL 233, 
10050 SYMBOL 234, 


10055 SYMBOL 235, 
10060 SYMBOL 236, 
10065 SYMBOL 237, 
10070 SYMBOL 238, 


248,120,60,28,14,6 
63,30,0,0,7,15,0,0 
248,0,0,0,0,0,0,0 

"7 TI ¿. T 1 n-7 DO OD 

/ q •—» X q q ,L *— t q / / q / . q 


o 


6 


1.0075 SYMBOL 

•-.cr -i cr cr 

q ■k. \ J ,L i) .u- vj \J 

10080 SYMBOL 


23?,144,225 


247,251, i: 


240,0 


, c;- /» -"~i cr cr ncc '“i cr cr ***i cr cr *•*> 

H J-w. 1 J q J-Jw i| w \ J q aL uJ q J-. 


JJq¿JÜ 

10085 SYMBOL 241,3,14,252,252,248,240,22 
4,128 

.1.0090 SYMBOL 242,16,16,16,16,16,16,16,16 
10095 SYMBOL 243,255,170,85,170,85,170,8 
5,255 

10490 REM »> INC I AL IZAR VARIABLES <« 
10500 PX(1)=10:PX(2)=14:PX(3)=6:PX(4)=3 
10505 PY<1)=5:PY<2)=13:FY(3)=15:RY(4)=7 
10510 RETÜRN 

10990 >>> PRIMERA COTORRA <<< 

11000 LOCATE P X(A),PY(A) 

1 1010 PRI NT CHRÍ <224) ; CHR<$ (225) ; CHRÍ < 226 


) 

11015 LOCATE PX(A),PY(A)+1 
11020 PR INT CHF:$ <227) ; CHR4 (228) ; CHR4 í 229 


) 


11025 LOCATE PX < A),PY<A)+2 
11030 PR I NT CHR$ (230) ; CHRS <231); CHR4 (232 
) 

11035 LOCATE PX < A),PY < A)+3 
11040 PRINT CHRÍ< 233);CHR4<234);CHR$ < 235 
) 

11045 RETÜRN 

11490 REM >>> COTORRA CHEPOSA DE ABAJO < 


11500 LOCATE PX < A)-1,PY < A)+2 
11510 PRINT CHR4(236);CHR4< 234 >;CHRS(237 
) 

11515 LOCATE PX(A)-1,PY<A)+3 
11520 PRI NT CHR4< 236) ;CHR4 <234) ;CHR4 <237 
) 

.1.1521 LOCATE PX < A) , PY < A) +1: PRINT CHRS <24 
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11525 RETURN 


12020 RETURN 


X i A) „ 

F 

Y (A) 

: FR 

I NT CHRÍ 

(2¿ 

12 3 

CCTOR 

R 

A NEGRA 




X (A 3 , 

P 

Y ( A ) 

: PR 

I NT " 

ll 


X (A) , 

F 

Y (A) 

+1: 

F'RINT " 


* 

X (A) -- 

1 

, F'Y ( 

A.) + 

2: F'RINT 

II 1 

1 

X x A) 

1 

, FY ( 

A) + 

3:PRINT 

ll l 

’: L 

PY (A) 

“1“ 

3: PR 

I NT 

II II 



DIBUJA 

PAN 

TAL 

LA <<< 



TO 4 


FEN 

/ : LOCA FE. 10 

, Y; 

: PR 

NEXT 

V 






TO 12 


: FEN 

11 

:LOCATE 

14. 

v - 

} 1 ■ 

) : NEX 

T 

y 





Tü 14 

I 

FEN 

1 A 

: LOCA 1 E 

Cu n 

i : P 

: NEXT 


Y 





TO 6: 


FEN 

1 Z í 

LOCATE 3 

M Y ¡ 

: PR 

NEXT 







TO 20 

U 

LOCA 

TE 

X.lsFEN 

•i . 

í PR 

LOCATE 

A * 

0 : F' 

EN 3: F'RINT 

CH 


R$(243):NEXT X 

12530 LOCATE 10, 9: P EN 12: F’R INT CHRÍ (243) 

;CHES(243);CHES(243) 

12535 LOCATE 14,17:FRINT CHES(243);CHRÍ < 
243)s CHRÍ(243) 

12540 LOCATE 6, 19: F'RINT CHRÍ (243) ; CHRÍ (2 
43)s CHRÍ(243) 

12545 LOCATE 3,11cPRINT CHRÍ(243);CHRÍ(2 
43)sCHRÍ(243) 

12550 INK 15,24:1NK 13,18:INK 14,14 
12560 FEN 13: LOCATE 7,24: F'RINT "COTORRA" 


12600 RETURN 

3.2990 REM >» HACER SONIDOS <<< 

13000 IF NO (B) = .1 THEN A=1:60SUE 12000: FE 
N 7:60SUE 11500:SOUND 1,200,10:FOR T=1 T 
O 500:NEXT T 

13005 IF NO(E)-2 THEN A=2 :GOSUB 12000:P 
EN 1.1 : GOSUB 11500: SOUND 1,400, 10 r, FOR T= 1 
TO 500: NEXT T 

13010 IF NO(B)~3 THEN A-3:GOSUB 12000:PE 
N 14:GOSUB 11500:SOUND 1,600.1O:FOR T=1 
TO 500:NEXT T 

13015 IF NO (E) =4 THEN A-=4: GOSUB 12000: FE 
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N 13: GOSUB 11500: SOUND 1,800, 10; FGR T=.1 
Tü 500:NEXT T 

13020 GOSLJB 12000: GOSUB 11000 
13025 RETURN 
13450 REM 

13500 LOCATE l,22sF0R 0=1 Tü 20sPRINT " 
";:NEXT Q 

13505 LOCATE 1„23:F0R 0=1 TO 20: F'RI NT " 
";:NEXT 0 
13510 RETURN 


Ahora una con ? MERGE’ la subrutina de 
entrada de car act.eres 1 » 
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Pick man 



Un atracón de Arcada 

Este es el primero de los tres juegos de tipo Arcada incluidos aquí. 
Se trata de una variante de los programas en que el jugador guía 
un carácter por la pantalla a través de un laberinto comiéndose 
puntos según se va moviendo. 

Pero la vida nunca es fácil en la Arcada, hay un par de incor¬ 
diantes que intentarán comerse los puntos antes que usted, y para 
acabar de rematar el asunto le matarán si le cogen. 

Su fin será liquidar todos los puntos antes de que desaparez¬ 
can, y sin que le coman a usted. Cuando termine, la pantalla se 
volverá a llenar de nuevo. 

Controlará el movimiento del Pick man como de costumbre, con 
las flechas o con un «joystick». 

En manos de jugadores avezados y pacientes los resultados 
pueden ser increíbles. 
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Cargando la subrutina "Puntuación máxima" con "MERGE' 
podrá dejar su nombre en el programa para la posteridad. 


1 REM <<< PICK MAN 

2 REM 

500 SYMBOL 240.3,3 
1 

510 SYMBOL 241,191 
43,223 

520 SYMBOL 242,251 

530 SYMBOL 243,25Í 
40,192 

550 SYMBOL 244,3,3 
1 

560 SYMBOL 245,191 
43,223 

570 SYMBOL 246,251 

5S0 SYMBOL. 247,251 
40,192 

600 SYMBOL 248,3,1 
610 SYMBOL 24 9,25í 


7 

.• X.J $1 

192 

640 

SYMBOL 

no 

a_ •• H 

255 

650 

SYMBOL 

660 

SYMBOL 

15 


670 

SYMBOL 

750 

HI -1 OOÍ 

980 

REM < <- 


¿_ -r 

4*7 1 

77 1 

H w ‘ 1 

Ww n * 


o n 

cr “i 

nir n ‘ 

4- 7 n 

j_. •__> j_ ^ 

*i ■ 

/-.crcr 

1 -77 

127 




mrcr 

ns/i 

7 cr A 



*-w-r h 

, 63 „ 

63, 1 

23, 1 

r> a f\ 

'■ 7 . cr 

'•71 cr '•*> 

1 4 

jL. w q 

•*— J -¿1 «i . 

ncrtr 

1 0*7 

1 77 

W 4 

*» 


255, 

254, 

254, 

1 

77 ¿.cr. ¿.cr 

* r .• 4 

H 1 ‘ 


i no 

¿. C~1 ». 

cr 7 7 



ji ••••■ ■— 1 

176, 

140, 

132, 

129, 

130, 

130, 

1 r.o 

12' D 

129, 


13,241,25 


5,240,14,2,1,1,2,14,240 


1000 GOSUB 21000 
1040 SC=Ú: COUNT=3: L.I =3 

1060 GOSUB 20000:T$=CHR*(240)+CHR4(241): 
B$=CHRÍ(242)+CHRÍ(243) 

1065 T1 $=CHR$ (244) +CHR$ (2.45) : B1 *=CHR$ (24 
6)+CHR*(247) 

1070 PEN 2 

1080 LOCATE 18,1: PRINT T*;T*;T* 

1090 LOCATE 18,2: PRINT B$;B$;B$ 

1500 X=20:Y=17 
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151O X1=2:Y1=4:X2=38;Y2=4 
2000 BOSUB 22000 
2020 GOSUB 25500 


2040 GÜSUB 22000 
2050 IF (XI ~ X AND Y1 
Y2=Y) THEN DE AD~1 
2070 IF COUNT>25S THEN 


Y)DE (X2=X AND 


GOTO 24000 


JOSO IF DEAD=i THEN GOTO 


uo 


3 O O O G O T O 2 O O O 


1 9930 

REM <« PANTALLA >>> 




70000 

INK 0,0: INK 

1,13,19: I NK. 

•-> 

«í *-2 n 1 

¡¡ 

INK 3 

r>* m ) r> 

«i •*— 





20005 

SPEED INK t. 

¿. 




200 í 0 

PAPER 0:PEN 

i :MODE 1:BOEDER 

Q 


20020 

PEINT"TANTEO 

¡¡ 



R 

ECOED 

: " ;HI: : PRINT 





20030 

WÍ=CHRÍ(252) 

+CHRÍ(252) : Xi 

=c 

HR$ (2 

48 

) +CHR 1 

*. (250) : VÍ=CHR 

i(253)+CHRÍ(3 

2) 



20035 

Y i=CHRÍ (2 49) 

+CHRÍ(251 ): 2i 

=c 

HR$ < 2 

54 

) +ETR 

ING$(S,252)+C 

HRi(255) 




20040 

R $ =: y + y * -i. y ± » 

SÍ=RÍ+Vi+Vi : 

AÍ=CHR 

* ( 

24 S) + 

STRINGi(3S,25 

2)+CHRÍ(250) 




20050 

PRINT Ai: 





200.00 

Ai~CHRÍ(252) 

+SÍ+WÍ+SÍ+VÍ+ 

I J-± 

V -f 

+WÍ+S 

$ 4* 

CHES ( 

252) 





20070 

PRINT Aí;:Oí 

-Ai 




2 OOSO 

PRINT Ai; 





20090 

AÍ=CHRi (252) 

+VÍ+CHRÍ(254) 

+w 

i+Wi+CH 

Rt(25 

0) + V i+Y i + V i + Z 

i+y i+Y i+y i+c H R i 

(248) 

+W 

*+Wf+CHRÍ(255)+VÍ+CHRÍ(252) 




20100 

PRINT A*; 





201 í 0 

A$=CHR$(252) 

+R i+w i+S i+S i + 

y i 

•+*W$ **“ R 

!$■ + 

CHRí < 

-~~i cr y 





20120 

PRINT Ai; 





20130 

MI Di(Ai,S,2) 

=YÍ:MI Di(Ai,3 

.iL , 

2 > —y* 


20140 

PRINT Ai; 





20150 

AÍ=WÍ+WÍ+CHR 

•% (250) + R i + X i + 

l 

_j_7^ + u 

•± -4- 

Y & -i_C>dk 

+CHRS(243)+Wi 

+l ! J$ 




201 60 

PRINT Ai; 





20170 

A í=UJ •*+W i + C H R 

:i (251) +RÍ+WÍ+ 


+yi+yi+ 

Wi+Ri 

+CHRÍ(249)+Wi 

+wí 




201 SO 

PRINT Air, 

. 




20190 

AÍ=CHRi(252) 

+ R * + X i + y i+N í + 

C4 

+y i + y 

$4- 


i v¡ j* 4-y-± 4. + i <->ts.■“ ) 

20200 PEINT Aí: 
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20210 AÍ=CHRÍ(251)+Ri+Wi+Vi+Yi+Vi+CHRÍ<2 
49)+WÍ+CHRÍ(251)+Y$ 

20220 AÍ=AÍ+CHRÍ(249)+WÍ+CHRÍ(250)+VÍ+YÍ 
+y$ +[jJ* + p;*+c¡-jp;* (249) 

20230 PRINT Ai; 

20240 AÍ=CHRÍ(32)+Ví+Xí+Vi+Wi+Ri+Wi+STRI 
NGi(6,32)+Wi+F:i+Wi+Vi+Xi+Vi 
20250 PRINT Ai; 

20260 MIDi(Ai,4,2)=YÍ:MIDi(Ai,36,2)=YÍ 
20270 F'RINT Ai; 

202S 0 A i -• C H R i (250) + R i+W i+V i + X i + V i+Wi+S T R 
ING$(6,32)+Wi+Vi+Xi+Oi+Wi+R i+C HRi(24S) 
20290 PRINT Ai: 

20300 AÍ=CHRi(252)+MIDi(Ai,2,10)+Wi+Vi+C 
HRi(249)+STRINGÍ(8,252)+CHRÍ(251)+VÍ+WÍ+ 
MIDi(Ai,30,1O)+CHRÍ(252) 

20310 PRINT Ai; 

20320 AÍ~WÍ+WÍ+CHRÍ(250)+Vi+Wi+Vi+Wi+Si+ 
Vi+Vi+Wi+yi+Wi+Vi+CHRi(248)+WÍ+WÍ 
20330 PRINT Ai; 

20340 MIDi(Ai,5,1)=CHRi(251);MIDÍ(Ai,36, 

1) =CHRÍ(249):MIDi(Ai,8,2)=YÍ:MID$(AÍ,32, 

2) “Y i 

20350 PRINT Ai: 

20360 AÍ=CHF:i (252) +Si+Wi+Vi+Zi+Vi+Wi+Si+ 
CHRi(252) 

20370 PRINT Ai; 

20380 Ai~QÍ 
20390 PRINT Ai: 

20400 BÍ=CHRÍ(248)+WÍ+WÍ+CHRÍ(250) 

20410 MIDi (Ai, 4,6) =BÍ: MIDi (Ai, 32, 6) =BÍ 
20420 PRINT Ai; 

20430 BÍ=CHRi(249)+WÍ+WÍ+CHRÍ(251) 

20440 MIDi(Ai,4,6)=Bi:MIDi(Ai,32,6)=Bi 
20450 MIDi(Ai,16,10)=ZÍ 
20460 PRINT Ai; 

20470 PRINT Qi; ¡F'RINT Qi; 

20480 AÍ=CHRÍ(249)+STRINGÍ(38,252)+CHRÍ( 
251) 

20490 PRINT Ai; 

20500 RETURN 

20980 REM <« INICIALIZACION >» 

21000 MEMORY 34998 

21010 ADDR-34999:GOSUB 29500 

21020 L0CA=35029;GOSUB 30500 
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21250 RETURN 

21980 REM <<< MOVIMIENTO >>> 

22000 GOSUB 29000 

22010 IF LE=1 THEN GOSUB 23000 

22020 IF RI=1 THEN GOSUB 23200 

22030 IF UP—1 THEN GOSUB 23400 

22040 IF DO--1 THEN -GOSUB 23600 

22190 GOSUB 26000 

22200 RETURN 

22980 REM <« COMPROBACIONES >>> 

23000 LOCATE X-1,V:GOSUB 32000 

23010 IF CH-I>32 THEN RETURN 

23050 LOCATE X-l,Y+l:GOSUB 32000 

23060 IF CH<>32 THEN RETURN 

23100 GOSUB 23800:X=X-1:IF X=1 THEN X=38 

23150 RETURN 

23200 LOCATE X+2,YsGOSUB 32000 


23210 

IF CH < 

•%. T O 

THEN RETI 

URN 


**2 -7 r> cj 

LOCATE 

X+2. 

Y+l:GOSUB 32000 


23260 

IF CH < 

3 ~ 

THEN RETURN 


23300 

GOSUB 2 

3800 

: X=X +1: 

IF X=39 ‘ 

r HE?- 

23350 

RETURN 





23400 

LOCATE 

X, Y- 

1:GOSUB 

32000 


23410 

IF CH < 

“7j ~ 

THEN RETURN 


23450 

LOCATE 

X+l, 

Y-1:GOSUB 32000 


23460 

IF CH < 

7 \ r? 

THEN RET 

URN 


23500 

GOSUB 2 

3800 

:Y=Y-1 



23550 

RETURN 





23600 

LOCATE 

X, Y+ 

2:GOSUB 

32000 


23610 

IF CH < 

3 

THEN RET 

URN 


23650 

LOCATE 

X+l , 

Y+2:GOSUB 32000 


23660 

IF CH < 

•%. ~r 

THEN RETURN 


23700 

GOSUB 2 

3800 

i:Y=Y+1 



23750 

RETURN 





23800 

LOCATE 

X - Y s 

PRINT " 

II 


23S1 0 

LOCATE 

V V-L 

• 1:PRINT 

II II 


23820 

RETURN 





'"■'3850 

LOCATE 

X 1, V 

' 1 :PRI NT 

" ":LOCATE 

Y 1 + 1 : 

PEI NT " 

II 




23860 

LOCATE 

v o ^ 
A -i. * . 

'2: PRINT 

" " ; LOCATE 

Y2+ i : 

PRIMT " 

it 




OT;gof) 

RETURN 





23980 

REM <<< 

REI 

INICIAL 12 

1 ACION i-:-- 


24000 

SC=SC+1 

000 s 

LOCATE £ 

L1:PRINT 

SC 
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24020 RESTORE 40100:TUNE 38 i2:GOSUB 31000 
24OSO CQUNT=0 
2 4 O 9 O G O T O 10 6 O 
244SO REM <<< MUERTE >>> 

24500 :D$=Bí:DEAD=0 

24510 LOCATE X,YsPRINT " ":LOCATE X, Y+i 

« pp J MT i' ii 

24530 RESTORE 4OOOO:TUNE=B:GOSUB 31OOO 
24 54O G O S U B 2 3 S 5 O: P E N 2 
24550 LI=LI-1:IF LI=0 THEN GOTO 35000 
24560 LOCATE 18.1:PRINT Cí:LOCATE 18.2:P 
RINT m 

24570 IF LI~1 THEN C$=" ":DÍ=" 

24580 LOCATE 20„1:PRINT C*:LOCATE 20,2:P 
RINT m 

24590 IF L1=2 THEN C$=" ":DÍ=” 

24600 LOCATE 22,1:F'RINT C$:LOCATE 22.2:P 
RINT D* 

24610 GOTO 1500 

24980 REM <« MOVER FANTASMAS »> 

25000 LOCATE X1-1.Y í;GOSUB 30000:IF CH<> 

253 AND CH>247 THEN RETURN 

25005 IF CH=253 THEN COUNT=COUNT+1 

25010 LOCATE X1 -1,Y1 +1:GOSUB 30000:IF CH 

0253 AND CH >247 THEN RETURN 

25015 IF CH=253 THEN COUNT=COUNT +1 

25020 GOSUB 23850: X 1 =X 1 --1: GOSUB 26040: RE 

TURN 

25050 LOCATE X2-1,Y2:GOSUB 30000:IF CH<> 

253 AND CH>247 THEN RETURN 

25055 IF CH=253 THEN COUNT=COUNT +1 

25060 LOCATE X2-1.Y2+1:GOSUB 30000:IF CH 

0253 AND CH>247 THEN RETURN 

25065 IF CH=253 THEN COUNT=COUNT +1 

25070 GOSUB 23850:X2=X2-1:GOSUB 26040:RE 


TURN 

25 1 00 LOCATE X 1+2 .Y1:GOSUB 30000:IF CH< > 

253 AMD CH >247 THEN RETURN 

25105 IF CH=253 THEN COUNT=COUNT +1 

2511O LOCATE X1+2,Y1+1:GOSUB 30000:IF CH 

< >253 AND CH>247 THEN RETURN 

25115 IF CH=253 THEN COUNT=COUNT +1 

25120 GOSUB 23850:X1=X1+1:GOSUB 26040:RE 

TURN 

25150 LOCATE X2+2,Y2:GOSUB 30000:IF CH< > 
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253 AND CH>2.47 THEN RETURN 

25155 IF CH=253 THEN CQUNT=COUNT +1 

25160 LOCATE X2+2,Y2+1:GOSUB 30000:IF CH 

0253 AND CH >247 THEN RETURN 

25165 IF CH=253 THEN COUNT=COUNT +1 

25170 GOSUB 23850:X2=X2+1:GOSUB 26040:RE 

TURN 

25200 LOCATE X1.Y1-1:GOSUB 30000:IF CH<> 

253 AND C'H >247 THEN RETURN 

25205 IF CH=253 THEN COUNT=COUNT +1 

25210 LOCATE X 1 +1. Y1 -1:GOSUB 30000: IF CH 

0253 AND CH>247 THEN RETURN 

25215 IF CH=253 THEN COUNT=COUNT +1 

25220 GOSUB 23850:Y1=Y1-1:GOSUB 26040:RE 

TURN 

25250 LOCATE X2,Y2-1:GOSUB 30000:IF CHO 

253 AND CH>247 THEN RETURN 

25255 IF CH-253 THEN COUNT=COUNT +1 

25260 LOCATE X2+1,Y2-1:GOSUB 30000:IF CH 

0253 AND CH>247 THEN RETURN 

25265 IF CH=253 THEN COUNT=COUNT +1 

25270 GOSUB 23S50:Y2=Y2-1:GOSUB 26040:RE 

TURN 

25300 LOCATE X1,Y1+2:GOSUB 30000:IF CHO 

253 AND CH>247 THEN RETURN 

25305 IF CH-253 THEN CQUNT=COUNT +1 

2531O LOCATE X1+1,Y1+2:GOSUB 30000:IF CH 

0253 AND CH >247 THEN RETURN 

25315 IF CH=253 THEN COUNT=COUNT +1 

25320 GOSUB 23850:Y1=Y1+1:GOSUB 26040:RE 

TURN 

25350 LOCATE X2.Y2+2:GOSUB 30000:IF CHO 
253 AND CH>247 THEN RETURN 


'“snr—*crcr 

IF CH-25 

3 THEN COUNT=COUNT +1 


25360 

LOCATE X 

2+1,Y2+2:GOSUB 30000: 

IF CH 

< >253 

AND CH >2 

47 THEN RETURN 


■—l cr * cr 

O w" 

IF CH=25 

3 THEN COUNT=COUNT +1 


25370 

GOSUB 23 

850:Y2=Y2+1 

:GOSUB 260 

40: RE 

TURN 

25400 

RETURN 




25500 

IF RND(1 

)>0.7 THEN 

GOTO 25550 


25510 

IF X >X 1 

THEN GOSUB 

25100 


25520 

IF X<X1 

THEN GOSUB 

25000 


25530 

IF Y>Y1 

THEN GOSUB 

25300 


25540 

IF Y<Y1 

THEN GOSUB 

25200 
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25550 

IF RND( 

1)>0.6 THEN RETURM 

25560 

IF X>X2 

THEN GOSUB 25150 

25570 

IF X<X2 

THEN GOSUB 25050 

25580 

IF Y>Y2 

THEN GOSUB 25350 

25590 

IF Y<Y2 

THEN GOSUB 25250 

25600 

RETURM 


25980 

REM <<< 

DIBUJAR HOMBRE >> 

26000 

PEN 2 


26010 

LOCATE 

X.Y:PRINT TS 

26020 

LOCATE 

X.Y+1:PRINT B$ 

26030 

RETURN 


26040 

PEN 3 


26050 

LOCATE 

Xl.Yl:PRINT TI* 

.¿6 ¡jo O 

LOCATE 

XI.Y1+1:PRINT Bl$ 

26070 

LOCATE 

X2.Y2:PRINT Tl$ 

26080 

LOCATE 

X2.Y2+1:PRINT Bl$ 


30980 REM «< SONIDO >>> 

3i000 FOR N=i Tü TUNE 
31010 READ NOTE,DURA 
3.1.020 SOUND 2, NOTE, DURA, 15 
31030 NEXT N 
31040 RETURM 

31980 REM <<< DETECCION >>> 

32000 60SUB 30000 
32010 PEN 1 

32020 IF CH=253 THEN CH=32:SC=SC+10:SOUN 
D 2,120,1,15:COUNT=COUNT+1:LOCATE 8, 15 PR 
I NT 3C 


32030 

IF ch=: 

3 2 O 4 0 

IF' CH>: 

32050 

DEAD=1 

32090 

RETURN 

349S0 

REM <<■ 

35000 

CL.S 

35010 

PEN 1 

35020 

LOCATE 

35030 

LOCATE 

JUBA 

R OTRA 

35040 

IF SO: 

I NT " 

UNA NUE 

35150 

AS=INK 

35180 

IF A*< 

“ cr j ~7 Tj 

GOTO 1 

TODO (•) 

REM * 


THEN PRINT 


FINAL DE JUEGO 


RETURM 


3:PRINT "TE HAN C 
! 1: PF;INT "PULSAR ’ 


□ MI 

o •> 


uu 

PARA 


‘HEN H, I =SC: LOCATE 10.9 s PR 


"S" THEN GOTO 


í 


40000 DATA 


t % MARCHA FUNEBRE * 
34,20,284,20, 2S4,20, 3 


* * 
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1 ° 

■L 

20, 

319, 

3 o 

319, 

r-, n T 

"7 0 
* / , 

“rcr 


40C 

98 

REM 


MUS 

ICA 

DE 

FONDO >::•• 


40100 

DATA 

31 

9, 20 

, 253 

, 20 

,213,50, 

r:v -y r “\ r~, 

U U , u_. 

13, 

20, 

cr -r 

50 






401 

10 

DATA 

31 

9,20 

, 253 

, 20 

,213,50, 

253, 2 O M 3 

19, 

20, 

O i" "t 

50 






Ah c 

r a 

una 

c on 

•’ ME 

RGE ‘ 

.1 a 

s subrut 

:¡. n a s el e 

•’ er 

t r £ 

d a d 

e e 

arac 

tere 

*5 ’ 

y 1 compr 

ota ac. :i. on 

de 

c a r 

a c i e 

{•'** C1T 

e 








20 

Skippy 



Un salto hacia adelante 

«Erase una vez un cangurito que vivía en Australia, que está muy 
lejos de aquí. Este jovenzuelo se llamaba Skippy y vivió feliz mu¬ 
chos años.» 

«Skippy tenía su casa en los márgenes de un caudaloso río por 
el que flotaban troncos. El disfrutaba sentado en su pequeña cho¬ 
za y mirando el maravilloso paisaje que la rodeaba, pero un día 
las cosas cambiaron. 

«Los perniciosos humanos llegaron y construyeron una auto¬ 
pista pegada al río de forma que, cada día, Skippy y sus amigos, 
al volver de rebuscar comida, tenían que cruzar la transitada au¬ 
topista, saltar sobre los troncos para cruzar el río y, por último, 
apearse mientras pasaban por delante de su casa. Como todo esto 
es muy peligroso a ellos les gustaría que el lector les ayudara.» 

Utilizando el «joystick» o las flechas, intente guiar a Skippy y a 
sus amigos sanos y salvos por entre los coches, sobre los troncos 
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y hasta el interior de sus casas. Su ayuda en esta vida salvaje le 
será recompensada con puntos, de acuerdo con su pericia para 
guiar a cada canguro. 

Puede cargar con "MERGE" "Puntuación máxima" para añadir 
una puntuación récord. 

10 REM <<<< SKIPPY »>> 

20 REM 

30 SYMBOL AFTER 223 
40 MEMORY 34990 
60 GOSUB 350 
65 GAMf="SKIPPY" 

70 REM 

110 REM <<< DEFINICION DE OBJETOS >» 

120 0AR*=CHR*(224)+CHRS(225) 

130 LOR«=CHRí(228)+CHRÍ(227)+CHRÍ(226) 
140 BIK$=CHR$(241)+CHR$(242) 

150 L0$=CHR$(229)+CHR<S(230)+CHRÍ(231) 

155 GAP$=CHR$(245)+CHR*(245)+CHRÍ(245) 
160 G«=STRING$<2." ") 

165 H$=STF; I NG$ (3, " " ) 

17O 01 $ —CAR'Í+CAR$+G4+G$+G$’+ - CAR$-i-G$+G$ 
+CAR*+CAR$+CAR*+G*+CAR$+G$+CAR$+CAR*+G*+ 
G$+G5+CAR'$+G$+G$+CAF.'Í+G$ 

175 011$+CAR$+CAR$+G$+G$+G$+CAR«+CAR$ 

+CAR$+CAR$+G$+G$+G$+G$+CAR$+Gí+CAR$+G$+C 

AR$+CAR$+G$+G$+G$+CAR$+G$+G$+CAR$+CAR$ 

ISO C2$=L0RÍ+H*+H*+H*+HÍ+L0R$+H«+L0R*+L0 

R$+H$+H$+LOP$+H$+H$+H$+LOR$+H$+H$+H$+H$+ 

LOR$+H$+H*+H$+LOR$+LOR$+LOR$+Ht+H$+H$+H$ 

+" "+LOR$+H$ 

19O C3*-BIK$+BIK$+Hí+H$+G«+BIK*+BIKS + BIK 
$+BIK$+BIK$+H$+H$+G$• +BIK$+BIK$+BIK* +BIK$ 
+BIK$+H$+H$+" "+BIK$+G$+BIK$+H$+" "+BIK* 
+BIK*+BIK$+H$+" "+BIK$+H$+H$+H$+G$+BIK$ + 
BIK $ + H 4 + H $ + G £+BIK $+BIK $+BIK * -i- BIK * 

200 L1$=LQ$+GAP$+GAP$+GAP$+L0$+GAP$+L0$+ 

Gapí+lo$+gap^+lo$+gap$+gapí+gap«+gap$+lo 

$+GAP$+GAP$+LO$+LO$+GAP$+GAF‘$+GAP$+LO$+L 
OÍ+LOÍ+CHR*(245)+CHR*(245)+LO$+GAP$+GAP$ 
+GAP$+LO$+GAP$+LQ$ 

210 L2$=LÜ$+L0$+GAP$+GAPÍ+L0í+6AP$+L0$h-G 
AP$+GAP$+L0f+L0$+GAP$+L0$+GAP$H-GAP$+L0$+ 
GAP*+GAP$+LO*+LO*+GAP*+GAP*+LQ*+GAP*+LO* 
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215 FOR A= 1 TO 100: RI V*=RI V$+CHR$ (245) : N 
EXT ñ 

220 FOR A"1 TO 20:BAN1$=BAN1t+CHRf(243): 
WEXT A 

230 FOR A=1 TO 20 STEP 4:SANi*=BAN1$+CHR 
$(24 3>+CHR$(243)+CHR$(243) + " ":NEXT A:BA 
N1*=LEFT$ (BAN1 $ „ 3?) : BAN1 %=BAN i *+CHR* (2 43 
) 

240 FOR A=1 TO 100:BAN2«=BAN2$+CHR$(244) 

:NEXT A 

250 FOR A=1 TO 40sBAN3$=BAN3*+CHR$(244) : 
NEXT A 

255 FOR A=1 TO 20:EAN4$=BAN4í+CHR*(243): 

NEXT A 

260 HI=0 

300 KA=3:SC=0 

310 GOBUB 710 

315 REM <<<< INICIALIZAR VARIABLES »>> 

320 C1=-1 : 02= 1 : C3=-1: L1 = 1 : L2=-1 

330 001"SO:002=1:003=80:LL1=70:LL2=1O 

340 K=232:Ki=232:K2=233 

350 KX=10:KY=22 

360 0X=10:0Y=22 

362 i<AB=0 

365 REM <<« BUCLE PRINCIPAL >»> 

370 GOSUB 570 

373 RET=1:GOSUB 740 

375 OX=KX:OY=KY 

376 GOSUB 40000 

400 001=001+01:002=002+02:003=003+03 

407 LL 1 = LL 1+L. i : LL2=LL2+L2 

420 IF 001=1 THEN 001=81 

430 IF 002=81 THEN 002=1 

440 IF 003=1 THEN 003=81 

450 IF LL1=81 THEN LL1=1 

460 IF LL2=1 THEN LL2=S1 

461 IF KY=S THEN KDX=-1 

462 IF KY=6 THEN KDX=1 

463 ’IF KX+KDX=0 OR KX+KDX=21 THEN 505 

464 RET=2: GOTO 740 

510 OX=KX:OY=KY:GOTO 370 

560 REM <<<< DIBUJO DE OBSTACULOS »>> 

570 PRI NT CHF;$ < 30) : PRI NT: INK 2.20 

580 PRINT:PRINT:PRINT:PEN 1O:PAPER O:PRI 

NT MID$(L2$,LL2,19) 
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590 PR INT 3 PR INT MID*(LIS.LL 1,19): PPINT: P 
RINT:PRINT:PRINT 

600 PRINT;PRINT3 F RINT:PAPER 0:PEN 0 3 PRIN 


T MIDÍ(C3$,CC3.19) 

610 PRINT 3 PEN 2:PRINT MID*<C2S,COI 


PR I NT 


F' E N 


PRINT MIOS <014,001. 19 


630 RETURN 

650 REM <<■::< DIBUJO CANGURO •>>» 

690 PEN 12:PAPER O:LOCATE KX.KY:PRINT CH 
RS(K)s RETURN 

692 REM <<<< BORRAR CANGURO >>>> 

693 IF 0Y<5 THEM 00=243:PAPER OsPEN 15 

694 IF 0Y=8 OR 0Y=6 THEN CC=0:G0T0 700 
¿95 Tjr QY>4 AND 0Y< 11 THEM 00=207 : PAPER 
10:PEN 14 

696 IF OY >9 AN D O Y<15 THEN CC=244:PAPER 
O:PEN 14 

697 IF OY>14 AND 0Y<22 THEN 00=32:PAPER 
O:PEN 12 

695 IF OY>21 AND QY<24 THEN 00=244:PAPER 
O:PEN 14 

699 IF 0Y=24 THEN 00=243:PAPER O:PEN 15 

700 LOCATE OX , OY: PR I NT CHR* (00) :: RETURN 
705 REM <<<< DIBUJAR PANTALLA >>>> 

710 MODE OsINK 15,24:INK 14,26:BORDER Os 
PAPER O:CLSSPRINT CHRS(30)::INK 0.0 
720 PR I NT s PAPER O: PEN 15: PR I NT BAN1 í : s F'A 
P E R O: P E N 10: P RIN T RIV * 3 : P A P E R O: P E N 14: 
PR I NT BAN2*: PRI NT: PR INT: PR I NT s PR INT r, PR IN 
T:PRINT:PEN 14:PRI NT BAN34: :PEN 15 3 PRINT 
BAN44 

725 PRINT CHRS(30):"TANTEO RECORD CANG 


730 RETURN 

735 REM «« MOVIMIENTO INKEY >>» 

740 GOSUE-: 29000 
745 CALL S«BB03 

750 IF UP=1 AND KY<11 THEN K1=232:K2=233 
s KDY=-2:KDX=0:SC=SC+1 ELSE IF UP=1 THEN 
K1=232:K2=233:KDY=-1:KDX=0:SC=SC+1 
760 IF F:I = 1 AND KX<19 THEN K 1=234: K2=235 
:KDX=1:KDY=0 

770 IF LE=1 AND KX>1 THEN K1=236:«2=237: 
KDX=—1:KDY=0 
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775 IF EX =1 THEN END 


730 

IF D0=1 AND KY 

<11 THEN K1=23 

r~i , 
Zj t 

: K2= 

239 

: KDY 

=2:KDX=Ü ELSE 

IF DQ=1 THEN K 

1 - 

r 2 “ :r . P, 

: K2 

==239 

;KDY=1:KDX=0 





781 

K X=K X+K D X : K Y=K 

Y+KDY:LOCATE K 

v 

A . 

, KY: 

GOS 

UB 3 

0000 





~r O 

/ 

IF LE=1 OR ÜP= 

1 OR D0=1 OR R 

T .. 

i • 

s 1 *T 

HEN 

FOR 

80=300 TO 0 S 

TEP —10:SOUND 

1 , 

,80.. 

1: N 

EXT 

SO 





783 

KDX=0:KDY=0:IF 

K=K1 THEN K=K 

O 

ELS 

E K 

=K 1 






784 

GOTO 25000 





790 

GOSUB 693:GOSUB 690:IF RET=1 

THEN 

GO 


TQ 375 ELBE GOTO 510 

830 REM <<<< DEFINICION DE CARACTERES >> 
850 SYMBOL 224,7,28,56,127,21?,231,36,24 
860 SYMBOL 225,128,64,32,252,218,22?,38, 
24 

870 SYMBOL 226,0,0,0,0,255,255,60,24 
880 SYMBOL 227,64.64,64,64,255,255,128,O 
890 SYMBOL 22S,7,9,9,63,127,127,7,3 
900 SYMBOL 229,191,109,182,10?,218,125,1 
71,95 

91O SYMBOL 230,255,118,235,182,47,254,93 
, 190 

920 SYMBOL 231,250,213,190,91,182,109,i8 


930 SYMBOL 232,36,24.90,60,24,60,60,219 
940 SYMBOL 233,36,24,24,60.90,189,126.36 
950 SYMBOL 234,4,12,14,24,60,188,184,94 
960 SYMBOL 235,8,24,28,24,60,61,58,220 
970 SYMBOL 236,32,48,112,24,60,61,29,122 
980 SYMBOL 237,16,24,56,24,60,138,92,59 
990 SYMBOL 238,219,60,60,24,60,90,24,36 
1000 SYMBOL 23?,36,126,189,90,60,24,24,3 


1010 SYMBOL 240.0,0,67,172,240, 192,255,O 
1020 SYMBOL 241,O,1,51,14,55,72,72,48 
1030 SYMBOL 242,96,200,244.12,154,164,22 

O O /I 

1040 SYMBOL 243,251 


1050 SYMBOL 244,0,127,127,127,127,127,12 
7, 127 

1051 SYMBOL 245,170,85,170,85,170,85,170 
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1060 ADDR--34???: GOSUB 29500 
1065 L.0CA=35020: G 0 SUB 30500 
1070 RETURN 

14990 REM <<<< COMPROBACION DE CHOQUE >> 
25000 IR KY=4 THEN 25030 

25005 IF CH=32 OR CH=244 OR CH=0 THEN 79 
O 

25010 IF CH=229 OR CH=230 OR CH=231 THEN 
790 

25011 IF CIH>231 AND CHC2 40 THEN 790 
25015 GOTO 50500 

25030 IF KX~4 THEN 50000 ELSE IF KX=8 TH 
EN 50000 ELSE IF KX=12 THEN 50000 ELSE I 
F KX-16 THEN 50000 

25031 CC=243:QX=KX:QY=KY:GOTO 50500 
39990 REM <<<< TANTEO, RESULTADO >>>> 
40000 PRINT CHR*(30) :PRI NT SC;T AB <10);HI 
;TAB(1S);KA 

40005 IF SC>HI THEN HI=SC:GOTO 40000 
40010 RETURN 

49990 REM «« CANGURO SALVADO »» 

50000 IF CH<>32 THEN 50500 ELSE K=234:G0 
SUB 690:SC=SC+5:KAB=KAB+1:F0R N=1 TO 3:F 
OR S0=1 TO 200 STEP 10:SOUND 1,S0,1:NEXT 
SO:NEXT N 

50005 IF KAB=4 THEN 310 ELSE KX=10:KY=22 
:GOTO 790 

50490 REM <<<< CANGURO ATRAPADO »» 
50500 GOSUB 690:SOUND 1,1000,30:SOUND í, 
3000,60:GOSUB 693:KA=KA—1:KX=1O:KY=22:OX 
=10:0Y=22 

50505 IF KA=-1 THEN GOSUB 60000:GOTO 300 
50510 GOTO 370 


Ahora una con ’MERGE’ 1 as subrutinas de 
J entrada de caracteres’ , ’ con¡pr obaci on 

de car-ac:teres" y " puntua ci o n mai ma. 
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¡Acción a tope! 

Este juego, el tercero de Arcada, está vagamente inspirado en una 
serie de juegos en que el héroe salta obstáculos y sube escaleras 
para ir ascendiendo por la pantalla. 

El monstruo malévolo que aparece en cada pantalla ha secues¬ 
trado a la novia del héroe, encerrándola. Ahora se dedica todo el 
tiempo a lanzarle barriles rodando para aplastarlo. 

Hay tres pantallas distintas en la ascensión, y se van obtenien¬ 
do mayores puntuaciones con las diferentes pantallas. 

Movemos a nuestro héroe con las ya conocidas flechas o con 
el «joystick», y podemos hacerle saltar sobre los obstáculos con la 
tecla "COPY". 

Siguiendo las instrucciones del capítulo que tratan sobre su¬ 
brutinas, podemos cargar con "MERGE" la subrutina "Puntuación 
máxima", que permitirá establecer una galería de famosos. 
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1 REM KINKEY DONG 

2 REM 

500 SYMBOL AFTER 228 

5 10 SYMBOL 241,66, 126,66,66,66,i 26,66. 6 ¿ 
520 SYMBOL 242,60,66,189,165,165,1S9,66, 


‘•-■'Mpni OAT 1 S-<=. US T i. ¡.i. L £. 1 '".'O 

i i I L_ ' i q o— w •—■ q _U w q J. w u_‘ q •«,* q i_‘ W q W U~' q .i. j— , q 


1 ■'“ i Q 


540 SYMBOL 
550 SYMBOL 
560 SYMBOL 


244, 



246, 


¡6,60, 16, 44,52,56, 16,28 


28,60,8,52,44,23,8,56 
186,186, 146,124,, 56,68,130 


600 MEMORY 34495 
750 GOSUE 22000 
1 000 GOSUB 2 0000 
1100 GOSUB 19000 
1500 IF LEV-1 THEN 
1510 IF LEV=2 THEN 
1520 IF LEV=3 THEN 


GOSUB 21100 
GOSUE 21100 
GOSUB 21300 


1540 GOSUB 21500 

1550 ¥“2;Y=23 

1560 BX=1:BY-7sBD=1;BE=0 

1570 CX=20:CY=7:CD=-1:CE=0 

15B0 IF LEV=3 THEN BX=7:CX=13 

1800 GOSUB 24000 

1810 GOSUB 25000 

1820 GOSUB 24500 

1330 PEN 7 

1840 LOCATE X,Y:PRINT omf 

1850 GOSUB 23000 

1860 IF Y=1 THEN GOTO 3000 

1870 LOCATE X,Y 

1880 GOSUB 30000 

1890 IF CH0241 AND CHÍ >32 THEN GOTO 
O 

1900 LOCATE X.Y+1 
1910 GOSUB 30000 
1920 IF CH=32 THEN Y=Y+1 
1940 PEN 7 

1950 LOCATE BX,BYSPRINT ob$ 

1960 LOCATE CX,CY:FRINT oc$ 

2 OOO GOTO 180O 

3000 LEV=LEV+i;IF LEV=4 THEN L.EV=1 
3050 SC=SC+(LEV*50) 

3060 LOCATE 7,25:F'RINT SC 


500 
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3070 

GOTO 1500 


5000 

SOUND 2,300 

"?tr •je f-, Tñ 

H - • 1 4 v... H ,, n _■ 

5010 

LI=LI — 1:JF 

LI=0 THEN GOTO 6000 

5020 

POR N=1 TO 

LI 

5030 

LOCATE 17+N 

'-tnr 

a j— ü 

5040 

NEXT N 


5050 

PRINT " "■ 


5 0 6 0 

GOTO 1500 


¿000 

CLS 


¿005 

PRINT:PEN 3 


6010 
6020 

PRINT " EL 
PRINT " - 

PERVERSO MONO ! " 


6030 

LOCATE 3,10 

SPRINT "TU MARCA ";SC¡¡ 

6040 

LOCATE 5,25 

:PRINT "PULSA UNA TECLA" 

6050 

Af = INKEYf:I 

F Af="" THEN GOTO 6050 

6060 

SOUND 1,250 

O cr -¡ cr 
i — • 1 a- w 

6070 

GOTO 1000 


csopo 

REM »»»> 

> MONSTRUO <<<<<<<< 

1000! 

j SYMBOL 22S 

, 0 , 0,16,44,62,29,56,112 

1001 i 

> SYMBOL 229 

,129,66 , 126 , 90 , 126,106 , 8 


10020 SYMBOL 

230 „ 

0,0,8,52,124,56 

10030 SYMBOL 

231 „ 

112,121,127,63, 

10040 SYMBOL 

~r r-, 

•4- -* 1 

ncc; !->cr,cr cr cr 

ÍD U * i-JJ, _J w’ w- -J w , 

10050 SYMBOL 

•f O O H 90 

■ t || ,k X- C— 1 

r~,-~v-y 

i 4 1 «ip *?•=■. 4 

w l—* :« w r q j_ w ij 

10060 SYMBOL 

234, 

1,3,15,15,31,63 

10070 SYMBOL 
, 60, 0 

'•n ~r nr 

—• w tf 

171,213,235,215 

10080 SYMBOL 
„ 124,124 

236, 

128,192,240,240 

10090 SYMBOL 

*2 > i 

TO 1 ^ 1 ^ " T 5 o 1 

— - *1 ~ w n J. w h 4 w 4 i. 



14 

, 1,1 

"*> I CT. 

-i- •— 1 H 




w . 

if UJ II 




ncrcr 


24S, 


r T* “7 i "“"7 nr 

J- í q J. o— / q w 


1 0 

1 

00 

SYMBOL 

10 

1 

10 

SYMBOL 


nr 

4, 1 

56 

10 

i 

20 

PEN 15 

10 

i 

30 

LOCATE 

9) 

n 

CHR 

$(230) 

10 

1 

40 

LOCATE 

2) 

* 

CHR 

f <233) 

10 

i 

50 

LOCATE 

5) 

•J 

CHR 

$(236) 

10 

1 

60 

LOCATE 



O o n f\ 1 90 
j20,240,240, 


j rjcr •) nr ■} r.p 

1 0~ r> cr /¡ 

a. .• o_ n a_ .u. i, ,r_ I 


2,1:PRINT 
2,2:PRINT 
2,3:PRINT 
2,4:PRINT 


CHRf(22S) 
CHRf<231) 
CHRf(234) 
CHRf<237) 


;CHRf<22 
;CHRf<23 
; CHRf<23 
:CHRf(23 
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8):CHRt(239) 

3.0200 RETURN 

18980 REM >>>>> COMIENZA EL JUEGO <<<<< 
19000 SC=0:LI=3 
19010 LE0=1 
19020 L$=CHR$(241) 

19030 B$=CHR$(242):M$=CHR$(244) 

19100 RETURN 

19980 REM >> DEFINICION DE PANTALLA << 

20000 RESTORE 20000 

20010 FOR N=0 TO 15 

20020 READ A 

20030 INK N,A 

20040 NEXT IM 

20050 BOEDER O:PAPER 0:PEN 1:MODE O 
20100 RETURN 

20200 DATA O,18,6,24,20,7,15,2 
2021O DATA 22,12,17,9, 26 ,3,22,13 
20980 REM >>>>>>> PANTALLA <<<<<<< 

21000 F'$ = 5TR I NG$ (20,243) 

21010 CLS:PE=1 

21020 FOR N=8 TO 24 STEP 4 

21025 PEN PE 

21030 LOCATE l.NrPRINT Pf 
21040 PE=F’E+1 
21070 NEXT N 
21080 RETURN 

21095 REM * * * UNO * * * 

21100 G O SU B 2100 O 

21120 FOR N=8 TO 20 STEP 4 

21 130 PO=RND (1) * 3.7+2 

21140 IF N<24 THEN LOCATE PO.NsPRINT " " 
21150 LPO=RND(1)* 17 + 2:IF LPO=PO THEN GOT 
O 2.1150 

211 60 IF N<24 THEN PO=LPO:GOSUB 21700 
21170 PEN 10 
21180 NEXT N 
21190 RETURN 

21195 REM * * * DOS * * * 

21200 GOSLJB 21000 

21205 PEN 12 

21210 FOR N=13 TO 24 

21220 LOCATE 7,N:PRINT STRING*(8,207) 
21230 NEXT N 

21240 LOCATE 7,19:PRINT STRINGf(8,32) 
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21250 LOCATE 7,23: F'R I NT STRI MGf (S, 32) 

21260 LOCATE 7,15:PRINT STRINGí(S,32) 

2.1.270 PO=B: N=8: GOSUB 21700: P0= 18: N= 12: GO 
SUB 21700 

21275 P0=3:N=16:GOSUB 21700:PD=1S:N=20:G 
OSLJB 21700 
21280 PEM 10 
21292 RETURN 

21295 REM * * * TRES % % # 

21300 GOSUB 21000 

21310 LOCATE 1,8:PRI NT STRING$(5,32) 
21320 LOCATE 16,8:PRINT STRINGf(5,32) 

21330 LOCATE 1,12:PRINT STRINGí(4,32) 

21340 LOCATE 17,12:PRINT STRINGS( 4 ,32 > 

21350 LOCATE 1,16:PRINT STRING$ C 2,32) 

21360 LOCATE 19,16:PRINT STRING$<2.32) 

21370 P0=7:N=12:GOSUB 21700 

21380 P0=14:N=12:GOSUB 21700 

21390 PO-2:N=20:GOSUB 21700 

21400 P0“19:N~20:GOSUB 21700 

2141O F0=9:N~16:GOSUB 21700 

21420 PQ“12:N=16:GOSUB 21700 

21430 P0=10:N=8:GOSUB 21700 

21440 P0--1 1: N~8: GOSUB 21700 

21450 LOCATE 6,20:PPINT " ":LOCATE 15,20 

:PRINT " " 

21455 PEM 10 
21480 RETURN 

21490 REM * * * REMATE * * * 

21500 LOCATE 1,25 
21505 PEN 10 
1510 PRI NT"TANTEO";SC 
1520 LOCATE 16,25 
1525 PEN 6 
1530 POR N=1 TO L_ I 
21540 PRINT CHR$(248); 

21550 NEXT N 
21555 PEN 7 

21560 LOCATE 15,6:PRINT STRINGÍ(5,243) 

21570 PL.ÜT O, 325: DRAM 150,325 

21580 P0"18:N=2:GOSUB 21700 

2165O GOSUB 10OOO 

21680 RETURN 

21690 * * * ESCALERA * # % 

21700 FGR Z=0 TO 3 
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21705 PEN 7 
21710 LOCATE PO,N+Z 
21720 PRINT L$ 

21730 N’EXT Z 
21740 RETURN 

21980 REM >>>>> INICIALIZACION 
22000 ADDR=34999:GOSUB 29500 
22010 L0CA=35024:GOSUB 30500 


22150 

RETURN 





22980 

REM >>>> 

•> MO 1 

V IMIENTO 



23000 

GOB 

UB 29 

000 




23050 

IF 

LE= 1 

AND 

X >2 THEN 

X = X -1: m~ 

CHRf: 

(245) 
23060 
*(244) 

IF 

RI = 1 

AND 

X<19 THEN 

X = X+1: m 

=CHR 

23070 

IF 

UP= 1 

THEN 

M$=CHR$( 

2 46) ;GOTO 

p“T-:r 

00 







23090 

IF 

D0=1 

THEN 

MÍ=CHR*( 

246):GOTO 

•? ~r 4 

23090 

IF 

FI = 1 

THEN 

GOTO 235 

00 



23250 RETURN 

23300 LOCATE X.Y-1 

23305 GOSUB 30000 

23310 IF 0HO241 THEN GOTO 23350 

23320 Y=Y—1:GOTO 23080 

23350 LOCATE X.Y+1 

23360 GOSUB 30000 

23370 IF CH~241 THEN GOTO 23320 

23380 GOTO 23080 

23400 LOCATE X.Y+1 

23405 GOSUB 30000 

23410 IF CH0241 THEN GOTO 23090 
23420 Y=Y—1:GOTO 23090 

23500 IF M$=CHR$(245) THEN XD=-1 ELSE XD 
~-l 

23510 IF X<2 OR X>19 THEN XD=0 
23520 IF M$=CHR$C246) THEN XD=0 
23530 LOCATE BX.BY:PRINT ob$ 

23540 LOCATE CX,CYsPRINT oc$ 

23610 RESTORE 23750 
23650 FuR N ~1 70 6 
23660 READ A 
23670 Y=Y+A:GOSUB 23850 
23680 IF F'LAT = 1 THEN N=ll 
23690 NEXT N 
23700 GOSUB 24500 




Vi r-4 


Kinkey 157 


23710 RETURN 
23750 DATA -1,-1,0,0,1,1 
23850 X=X+XD:PLAT=0 
23860 LOCATE X,Y+1 
23870 GOSLIB 30000 

23880 IF CH< >32 THEN PLAT=1:RETURN 

23900 GOSUB 24000 

23910 GOSUB 24500 

23920 SOUND 2,100,2.15 

^7925 PFN 7 

23930 LOCATE BX,BY:PRINT obf 
23935 LOCATE CX,CY:PRINT oc$ 

23940 GOSUB 25000 

23950 LOCATE X,Y;PRINT omí 

23960 RETURN 

23980 REM >>>>> IMPRIME <<<<< 

23995 REM t * t HOMBRE * * * 

24000 LOCATE X,Y:GOSUB 30000 
2401O OM$=CHR$(CH) 

24020 PEN 2 
24050 PRINT Mi 
24100 RETURN 

24490 REM * * * BARRILES * * * 

24500 LOCATE BX.BY:GOSUB 30000 
24510 obí=CHR$(CH) 

24520 LOCATE CX,CYsGOSUB 30000 
24530 ocÍ=CHRÍ(CH) 

24540 PEN 3 
24550 LOCATE EX,BY 
24560 PRINT B$ 

24570 LOCATE CX,CY 
24580 PRINT B4 
4600 RETURN 

4980 REM >>>>> BARRIL ««< 

25000 A=RND<1>*10 
25005 LOCATE BX.BY+l 
25010 G O SUB 30OOO 

25020 IF CH=32 OR CH=241 AND A>5 THEN BE 
-1 

25030 IF CH=243 THEN BE=0 
25040 BY=BY+BE:IF BE =0 THEN BX=BX+BD 
25050 LOCATE CX.CY+l 
25060 GOSUB 30000 

25070 IF CH=32 OR CH=241 AND A>5 THEN CE 
= 1 
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25 OSO 

IF 

CH=243 TREN CE=0 


25090 

CY= 

CY+CE:IF CE=0 TREN CX=CX+CD 

25100 

IF 

BX<2 TREN ED=1 


25105 

IF 

EX>19 TREN BD=-1 


25110 

IF 

C X< 2 TREN CD=1 


2¡~ i i c¡ 

IF 

CX >19 TREN CD=—1 


25130 

IF 

< B X < 2 OR BX >19) 

AND BY=23 TREN 

E X = 1 : E 

D=1 

;BY=7:IF LEV=3 TREN BX=7 

25.140 

t p 

(CX<2 OR CX>19) 

AND CY=23 TREN 

CX=20; 

CD= 

-i- " L_- v k .T F" !_Fr„ v* 

TREN C X =13 

■■■;> nr cr * 

RET 

URN 


Ahora 

une 

con '' MERGE -1 las 

subrutiñas de 

n t. r 3 

Q ci 

d e c a r a c t e r t? sv 

■' comprobad on 






22 

El ahogado 



Deletrear o nadar 

Esta es una versión más divertida y humana del bien conocido jue¬ 
go del ahorcado. Si el jugador no es capaz de acertar la palabra a 
tiempo, todas las letras equivocadas enviarán al personaje al agua. 

Las palabras pueden tener hasta 8 caracteres de longitud, pero 
no pueden contener guiones. En el listado hay 60 palabras distin¬ 
tas, se puede aumentar la lista de palabras, o cambiar las ya 
existentes. 

Si acierta una letra, esta aparecerá en su posición dentro de 
la palabra precisa; si no, la víctima será empujada una posición ha¬ 
cia el agua. Si se acierta a tiempo, nuestro figurín empuja a todas 
las letras incorrectas hacia atrás y aparece otra misteriosa palabra. 


Si no se acierta, no se mostrará la palabra correcta, y al estar 
éstas seleccionadas al azar, pudiera ser elegida de nuevo más 
adelante. 













en f j 
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¡El programa es entretenido, educativo y puede ser que incluso 
cree hábito! 

1 REM «« AHOGADO >>>' 

REM 

00 RANDOMIZE TIME 
10 0 O G O S U B 210 O O 
1500 RANDOMIZE TIME 
1510 W==1NT (RND (1 > *60) +1 
1520 WS=D*(W) 

1530 GOBUB 20000 
1600 GOEUB 24000 
1610 FLAG=0 

1650 IF T$=W$ THEN GOTO 3000 
1660 IF LEN(G$>=10 THEN GOTO 2000 
1670 GOTO 1600 
1990 REM * * * PERDER * * * 

2000 GOSUB 23000 
2010 RESTORE 2000 
2020 FOR N=1 TO 10 
2030 READ A.B 
2040 SOUND 2,A,B,15 
2050 NEXT N 

2060 DATA 253,20,234,20,319,50,234,20 
2070 DATA 319,20,358,50,319,20,353,20 
2080 DATA 379,50,358,50 
2400 CLS 

2410 LOCATE 4,3:PRINT "MALA SUERTE !" 
2500 GOTO 3500 
2990 REM * * * GANAR * * * 

3000 RESTORE 3000 
3010 FÜR N=1 TO 16 
3020 READ A,B 
3030 SOUND 2,A,B,15 
3040 NEXT N 

3050 DAT A 319,20,234,20,253,20,239,30 
3060 DATA 319,20,234,20,253,20,239,SO 
3070 DATA 319,20,234,20,253,20,239,40 
3030 DATA 284,40,358,40,284,40,319,30 
3220 IF G$=="" THEN GOTO 3430 
3230 FOR N=LEN(G$) TO 1 STEP-1 
3240 G$=RIGHT$(G$,N-1) 

3260 GOSUB 24110:PRINT" " 

3270 SOUND 1,N*20,2,15 
3230 FOR F'~ 1 TO 500 
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3290 NEXT P 
3300 NEXT N 
3480 CLS 

3490 LOCATE 2, 3: PRINT"ENHORABUENA !!" 

3500 LOCATE 3,20:PRINT"PULSAR UNA TECLA" 
3520 A$=INKEY$ 

3530 IF A$~"" THEN GOTO 3520 
3540 GOTO 1500 

19980 REM <<<<<<< PANTALLA >»»>> 

20000 RESTORE 20000 
20010 FQF; N=0 TO 15 
20020 READ A 
20030 INK N,A 
20040 NEXT N 

20050 DATA O,20,2,18,6,24,26,0 
2 O 060 DATA O,O,O,O,O,O,O,O 
20100 BORDER O: PAPER 0:F'EN 1: MQDE O 
20110 LOCATE 8, 1: F'RINT" AHOGADO" 

20120 A$=CHR*(196)+CHRÍ(198):A*=A*+A$+A$ 
+A$+A$+A$+A$ 

20130 F'EN 6 

20140 LOCATE 4,2:PRINT A* 

20150 PEN 4 

20160 LOCATE 1,11:PRINT STRINGí(1O,207)+ 
CHR$(223) 

20170 LOCATE 10,12:PRINT CHRt(221) 

201SO LOCATE 11,12:PRINT CHR*(207) 

20190 LOCATE 12,12:PRINT CHR*(223) 

20210 FOF: N=1 TO 10 
20220 LOCATE 12,14+N 
20230 PAPER 2:PEN 3 
20235 IF N<3 THEN PAPER O 

20240 PRINT CHRt(211);STRING$(6.32);CHR* 
(209); 

20250 NEXT N 

20260 LOCATE 12,25:PRINT CHR*(205):STRIN 
G$(6,210);CHR$(204>; 

20300 RESTORE 20300 
20310 FOF: N=S TO 14 
20320 PAPER O:PEN N 
20330 READ A,B 
20340 LOCATE A,B 
20350 F'RINT CHR$(249>; 

20360 NEXT N 

20370 DATA 11,10,12,11,13,12,14,13 
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20380 DATA 15.14,10,15,16,16 
20400 F' L D T 510, 15 0,7: D R A W 560, 16O 
20410 F'LOT 478, 150: DRAW 420,160 
20420 F'LOT 510, 155: DRAW 540,180 
20430 F'LOT 478,155: DRAW 448,180 
20440 F'LOT 520, 147: DRAW 590,150 
20450 F'LOT 468, 147: DRAW 398,150 
20490 F'EN 5 

20500 LOCATE 1,13: F'R I NT " PALABRA: - " 

20510 LOCATE 2.17:Ti="":Gí="" 

20520 FOR N=1 TO LEN(Wi> 

20530 F'RINT" — ,! ; : Ti=Tí+" " 

20540 NEXT N 
20550 F'EN 3 

20560 LOCATE 1,10: F'RINT CHRÍÍ248) 

20580 LOCATE 2.20: F'RINT "ADIVINA" 

20750 RETURN 

20980 REM <<<<<< INICIALIZAR »>>>> 

21OOO RESTORE 3OOOO 
21010 DIM Dí(60) 

21020 FOR N=1 TO 60 
21030 READ Di <N) 

21040 NEXT N 
21250 RETURN 

22980 REM ««< CALARSE >>»> 

23000 LOCATE 11, 10: F'RINT" " 

23010 FOR N=8 TO 14 
23020 INK N,24 

23030 SOUND 2,300-N*10,25,15 

23040 FOR 0=1 TO 250 

23050 NEXT Q 

23060 INK N,O 

23070 NEXT N:INK 14,24 

23080 INK 7,26:SOUND 2,300,50,15,0,0,31 

23090 FOR N=1 TO 250 

23100 NEXT N 

23110 INK 7,0:INK 14,0 

23250 RETURN 

23930 REM <<<<< INF'UT >>>>> 

24000 Ai= I NKEYi : AÍ=UF'F'ERi (Ai) 

24010 IF Ai< "A" OF; AÍ>"Z" THEN GOTO 2400 
O 

24020 SOUND 2,200,10,15 
24030 FLAG=0: F'EN 4 
24040 FOR N=1 TO LEN(WÍ) 
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24050 IF MID$(W$,N,1)=A$ THEN LOCATE 1+N 
, 16: F'RINT A$: MIDf (T $ , N, 1; =A$: FLAG= i 
24060 NEXT N 

24070 .IF FLAGEO THEN GOTO 24100 
24080 SOUND 2,150,50,15 
24090 RETURN 
24100 G$=A$+G* 

24110 LOCATE 1,10:PEN 4 

24120 IF LEN <G$> 72=INT<LEN(Gí >/2) THEN A 

=250 EL SE'. A=251 

24130 F'EN 3s F'F:INT G*; CHRf- (A) ; 

24140 RETURN 

29980 REM <<<<< PALABRAS >>>>> 

30000 DATA AMSTRAD,AGUDO,CORTO.LARGO,EXO 
TICO, GLQRIA,LIRICQ, METAL, F'R I MALERA, RITMO 
30010 DATA F ASCISTA ¡«MISTICO, RUI DO, PULPO, 
ENANO,CALLE„GIGANTE,JUGADOR,DESTINO,FUTU 
RO 

30020 DATA PASADO,PRESENTE,LENTEJAS,JUDI 
A,LECHUGA,TOMATE,GARBANZO,MAIZ,ACEITE,VI 
NAGRE 

30030 DATA NARANJA,LIMON,MELOCOTON,PERA, 
MANZANA,PLATANO,SANDIA,MELON,POMELO,CERE 
ZA 

30040 DATA MADF:ID, VALEÑOIA, SELILLA, BILBA 
O,, ORENSE, MURO IA, CUENCA, TENER I FE, MALAGA, I 
BIZA 

30050 DATA LOCO,LISTO,TONTO,INUTIL,PELMA 
,BELLA.HORRIBLE,LINO,ALCOHOL,TABACO 
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Aritmética 



Diez sobre diez 

Este sencillo programa tiene preguntas para niños, jóvenes y ma¬ 
yores, es decir, para todo el mundo. La pregunta puede ser de cual¬ 
quier tipo sobre suma, resta, multiplicación o división. Las pregun¬ 
tas y respuestas están dentro de una pizarra que aparece en la pan¬ 
talla para que la presentación sea más atractiva. 

En el nivel más bajo, el problema te en contar los dos conjun¬ 
tos formados por hombrecillos hasta llegar al total. En el nivel in¬ 
termedio ya hay los cuatro tipos de operaciones aritméticas y se 
plantean preguntas cuyas respuestas son un número. Los adoles¬ 
centes y adultos deben ser capaces de dar la solución men¬ 
talmente. 

El nivel superior requiere una gran habilidad aritmética y está 
diseñado para que se resuelvan con papel y lápiz o incluso con 
calculadora. 

Las respuestas se teclean y se mandan al ordenador mediante 
la tecla "Enter". 
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Se pueden corregir las contestaciones siempre que no se haya 
llegado a pulsar "Enter". Después de dos intentos fallidos, el or¬ 
denador presenta la respuesta correcta en pantalla. 

Después de la décima pregunta, el ordenador muestra un in¬ 
forme.con el número de respuestas correctas y el porcentaje de 
puntuación. 

Se puede cargar con "MERGE", el programa "Frontón arco 
iris", después se ejecutan "RENUM 40000,5". Esta puede ser una 
buena recompensa para quien consiga diez sobre diez. 


1 REM <<<<< ARITMETICA >>>>> 

2 REM 

1200 BÜSUB 20000 

1300 LOCATE #1,2,3:PRINT #1,"1>INICIO" 
1310 LOCATE #1,2,5: F'RINT #1, "2>MEDI0" 
1320 LOCATE #1,2, 7: F'RINT #1,"3>ALTQ" 
1330 Af=INKEYf 

1340 IF Af<"1" OR A$>"3" THEN GOTO 1330 
1350 SGUND 2,300,50,15 
1360 LEV=VAL(A$) 

1390 GOTO 30000 

19980 REM <<<<<< PANTALLA >>>>>> 

20000 RESTORE 20000 
20010 FOR N=0 TO 7 
20020 READ A 
20030 INK N,A 
20040 NEXT N 

20050 DATA 2,0,26,24,6,18,7,13 
20060 BORDER 2:PAPER 0;PEN 6:M0DE O 
20070 FOR N=320 TO 335 STEP 4 
20080 F'LÜT N, 380,6: DRAWR 80,-330 
20090 NEXT N 

20100 FOR N=320 TO 305 STEP -4 
20110 PL.OT M, 380, 6: DRAWR -80,-330 
20120 NEXT N 

20130 WINDOW #1,6,15,6,17 
20140 WINDOW #2,8,13,14,14 
20150 PAPER # 1,1: F'EN #1,2: CLS # 1 
20160 PAPER #2,1: F'EN #2,2: CLS #2 
20250 RETURN 

2098O F; E M < < < < < IN p U T > > > > > 

21000 INF'LJT #2,G* 

21010 IF G$—"" THEN 21000 
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21020 C0R=1 

21030 IF VAL (G3 > < >ANS THEN C0R=0 
21040 RETURN 

21490 REM * * * ADIVINA * * * 

21500 FOR G=1 TO 2 

21510 GOSUB 21000 

21520 IF CGR=1 THEN GOTO 21560 

21530 SOUND 2,500,40,15:SOUND 2,750,50, 1 

5 

21540 NEXT G 

21542 RESTORE 21542 

21544 FOR N=1 TO 9 

21546 F:EAD A: SOUND 2, A, 20, 15 

21548 NEXT N 

21550 DATA 200,250,300,250,300,350,300,3 
50,400 

21552 SOUND 2,600,75,15 
21555 GOTO 21590 

21560 SOUND 2,600,30,15:SOUND 2,400,30,1 

5:SOUND 2,200,30,15 

21570 G=2 

21580 TOT=TOT +1 

21590 CLS #1:CLS #2 

21600 RETURN 

21980 REM <<<<< OPERACION >>>>> 

22000 CLS #1:CLS #2 

22010 LOCATE #1,2,2:PRINT #1,"1> 

22020 LOCATE #1,2,4:PRINT #1,"2> 

22030 LOCATE #1,2,6:PRINT #1,"3> *x’" 
22040 LOCATE #i,2,8:PRINT #1,"4> ’";CHR4 
(172);"’" 

22050 A*=INKEY* 

22060 IF A$<" 1" OR A$>"4" THEN GOTO 2205 
O 

22070 2=VAL(A$) 

22080 DEF FN SUM=A+B:S$="+" 

22090 IF 2=2 THEN DEF FN SUM=A-B:S$="-" 

22100 IF 2=3 THEN DEF FN SUM=A#B: S*= “x" 

22110 IF 2=4 THEN DEF FN SUM=A/B:S*=CHR* 

(172):DIV=1 
22200 RETURN 

22980 REM <<<<< INICIAL 12ACION >»>> 
23000 LIM=S:DIV=0 

23010 IF LEV=2 THEN LIM=12:GOSUB 22000 
23020 IF LEV=3 THEN LIM=25:GOSUB 22000 



Aritmética 167 


23030 CLS #1:CLS #2 
23040 TOT=0 
23100 RETURN 

23980 REM «<<< NUMEROS »»> 

24000 RANDGMIZE TIME 

24010 A=INT < RND <1> *LIM > +1 

24020 B=INT(RND(1)*LIM)+1 

24030 IF DIV=1 THEN A=A*B 

24035 IF LEV~2 THEN DIV=0 

24040 CLS #1;CLS #2 

24050 IF LEV=1 THEN GOTO 24150 

24060 LOCATE #1,1,3: PRINT #1, A; Si ;.B 

24070 ANS=FN SUM 

24100 RETURN 

24150 LOCATE #1,2,3:PRINT #1,STRINGf(A, 2 
50):LOCATE #1,5,5:PRINT #1,"+" 

24160 LOCATE #1,2,7:PRINT #1,STRINGÍ(B,2 
50) 

24190 ANS=A+B 
24200 RETURN 

29980 REM «<« BUCLE PRINCIPAL »>» 

30000 GOSUB 23000 

30010 FOR P=1 TO 10 

30040 GOSUB 24000 

30050 GOSUB 21500 

30100 NEXT P 

30150 CLS #1:CLS #2 

30160 PRINT #1," NOTAS." 

30170 PRINT #1," " 

30180 LOCATE #1,2,5:PRINT #1,TOT;"FUERON 

II 

30190 LOCATE #1,2,7: F'RINT # 1, "CORRECTAS. 

II 

30200 LOCATE #1,3,9:PRINT #1,TOT/10*100; 

ii */ ii 
/■ 

30250 LOCATE 2,25:PRINT "PULSAR UNA TECL 
A" 

30260 A*=INKEY* 

30270 IF A$="" THEN GOTO 30260 
30280 LOCATE 2,25:PRINT SPCC16) 

30290 CLS #1:CLS #2 
30300 GOSUB 40000 
30310 GOTO 1300 
40000 RETURN 
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...y después el mundo entero 

Este es un concurso de preguntas sobre geografía, basado en un 
mapa de Gran Bretaña. El juego es fácil de seguir. Se trata de res¬ 
ponder a preguntas sobre ciudades importantes y el condado al 
que pertenecen. Se le puede pedir el condado, la ciudad, o ambos. 
Un punto en el mapa representa el emplazamiento de la ciudad. 

Se puede modificar el núcleo del programa para precisar más 
el mapa, o incluso dibujar el mapa mundi como sugiere el 
subtítulo. 

El programa del "Editor de pantallas", que aparece un poco 
más adelante en este libro, le será útil para identificar los puntos 
que hay que dibujar. 

El mapa de este programa se consiguió calcando uno de Gran 
Bretaña sobre la pantalla. Estaba hecho en una hoja de acetato 
transparente, de modo que podíamos mover el cursor hasta cada 
punto, anotar las coordenadas (x,y) de cada uno y después mover 
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hasta el punto siguiente. El resultado puede ser tan perfecto como 
el modo elegido y su paciencia se lo permitan. 

Otra forma de desarrollar más este programa es aumentando 
el número de condados y ciudades. Puede que sea más educativa 
la propia búsqueda de documentación que esto implica que el pro¬ 
grama en sí. 


10 REM «« REINO UNIDO »»> 

1 1 REM 

15 REM 

16 REM 

20 GOSUB 1500 

30 MODE 1: LOCATE 15.1:PRINT "REINO UNID 
0" 

35 INK 0,0:BOEDER 0 
40 SC=0 

60 LOCATE 2.6:RRINT "ELIGE OPCION" 

70 LOCATE 10,8:PRINT "1.„..COMARCA" 

80 LOCATE 10,9:PRINT "2....CIUDAD" 

90 LOCATE 10,10:PRINT "3_AMBAS" 

100 A$=INKEY$ 

110 IF A$“"1" THEN 0P~1:GOTO 150 

120 IF A$="2" THEN 0P=2:G0T0 150 

130 IF A*="3" THEN 0P=3:G0T0 150 

140 GOTO 100 

150 GOSUB 900 

160 RESTORE 1270 

165 IF 0F'~3 THEN 630 

210 REM >>> ELEGIDO CIUDAD / COMARCA >>> 
220 FOR C=1 TO 16 
230 READ N$,X,Y,C0$ 

240 PLOT X,Y,3 
250 IF 0P=1 THEN LOCATE 
IUDAD ES " 

260 IF 0P=1 THEN LOCATE 
270 IF 0F‘=2 THEN LOCATE 
OMARCA ES " 

230 IF QF'=2 THEN LOCATE 
290 TR=3 

300 IF op~1 THEN LOCATE 
OMARCA ES" ELSE IF 0P=2 
: F'RINT "LA CIUDAD ES" 

310 IF QP—1 THEN INPUT #3," 
pcp$(c*) 


23, 5: F'RINT "LA C 

23,7: F'RINT N$ 

23,5: F'RINT "LA C 

23,7: F'RINT C0$ 

23,9: F'RINT "LA C 
THEN LOCATE 23,9 


"•C$:C$=UP 
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320 IF ÜF'=2 THEN INPUT #3," ";CIÍ:CI$= 
UF'PERS-(CIf> 

330 IF 0P=1 AND C$=C0* THEN 420 
340 IF 0F'=2 AND CI$=NÍ THEN 420 
350 TF;=TR-1: LOCATE 26,20:PRINT "INTENTOS 
" ; TR 

360 LOCATE 30,22:PRINT SFC(14) 

370 GOSUB 1500 

380 LOCATE 26,20SPRINT SPC(14) 

390 LOCATE 30,22SPRINT SFC<6> 

400 IF TR=0 THEN 5000 
410 GOTO 300 
420 GOSLJB 1440 

430 LOCATE 26*10:PRINT "CORRECTO" 

440 GOSUB 1500 
450 SC=SC+TR 
460 PLOT X , Y, O 
470 PRINT #3 
4SO PLOT 0,0,1 
490 GOSUB 1440 
500 NEXT C 

510 CLSsPRINTSPRINT " TU PUNTUACION";SO; 
" PUNTOS 

520 PRI NT SPRINT SPRINT " PULSA ’ ESF'AC 

I0-’ PARA SEGUIR " 

530 PRINTSPRINT " O ’Q’ PARA TERMINAR 

II 

540 A*=INKEYÍ : A$=UPPER$(Ai) 

550 IF A$~" " THEN 30 
560 IF AÍ="Q" THEN END 
570 GOTO 540 

610 REM >>> ELEGIDO CIUDAD Y COMARCA <<< 
620 REM 

630 FOR C=1 TO 16 

640 READ Ní,X,Y,C$:PLOT X,Y,3 

650 LOCATE 23,9:PRINT "LA CIUDAD ES" 

660 TR=3 

670 INPUT #3," ";CIi 

680 IF CI$=N$ THEN GOSUB 1440:LOCATE 25, 
lOsPRINT "CORRECTO":GOSUB 1500:SC=SC+TRs 
GOSUB 1440:GOTO 750 
690 TR-TR-1 

700 LOCATE 26,20:PRINT "INTENTOS";TR 
720 GOSUB 1500 

725 LOCATE 26, 20: PR I NT SF'C (14) 
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727 IF TR=0 THEN 730 ELSE GOTO ¿70 
730 LOCATE 23, lsF'RINT "LA CIUDAD ES" 

740 LOCATE 23,3: F'RI NT N$ 

750 LOCATE 23, 9: F'RINT "LA COMARCA ES" 

7¿O TR”3 

770 INF'UT #3," " ; CGí 

780 IF CO$=C$ THEN GOSLJB i440: LOCATE 25, 
10: F'R I NT " CORRECTO " : GOSLJB 1500: SC=SC+TR 
: GOSLJB 1440: GOTO 841 
790 TR--TR-~1 

800 LOCATE 2¿, 20: F'R I NT " INTENTOS " ; TF: 

820 GOSLJB 1500 

821 LOCATE 26,20: F'RINT SRC(14) 

825 IF TR=0 THEN 830 ELSE GOTO 770 
830 LOCATE 23, 9: F'RINT " 

832 F'R I NT #3 

835 LOCATE 23, 6: F'RINT "LA COMARCA ES" 

840 LOCATE 23,8: F'RINT Cí- 

841 GOSUB 1500 

842 GOSUB 1440 

843 PLQT X,Y,O 

845 NEXT C:GOTO 150 

8 9 O R E M > > > > I- > > > > > > > M A P A < < < < < < < < < 

900 MODE 1:WINDOW #3,20,40,11,11 


910 

F'LOT 0, 

0, 1 





920 

INK 3,0 

, 26 





930 

RESTORE 

1130 





940 

FOR A= 1 

TC 59 





950 

READ X, 

Y 





960 

IF A=1 

THEN F'LOT X,Y 

lip 11 1 e 

DRAW ) 

(, Y 


970 

NEXT A 






980 

FOF; A= 1 

TO 17 





990 

READ X , 

V 





1000 

IF A=1 

THEN F'LOT X,Y 

ELSE 

DRAW 

V 

A n 

V 

1010 

NEXT A 






1020 

FOR A= 

1 TO 4:READ X, 

Y 




1030 

IF A=1 

THEN F'LOT X,Y 

ELSE 

DRAW 

V 

f\ m 

Y 

1040 

NEXT A 






1050 

FOR A= 

1 TO 4:READ X, 

Y 




1060 

IF A~1 

THEN F'LOT X,Y 

ELSE 

DRAW 

V 

•"' ? 

Y 

1070 

NEXT A 






1080 

FOR A= 

1 TO 5:READ X, 

Y 




1090 

IF A= 1 

THEN F'LOT X,Y 

ELSE 

DRAW 

V 

^ 1 

Y 

1100 

NEXT A 






1110 

REI TUR N 
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1120 REM »»>>> DATOS DEL MAPA ««<<< 
1125 REM INGLATERRA 

1130 DATA 192,371,228,377,234,359,210,32 

O r>“T A 7/1 1 nnrr, "TR R r> R O TñR O O O O O ~7 ORO r > ~7 

; i; O - q •«.' “r J. i| 4-UU j| vJu i| A- \_J O % •_* •-' \-J t( .Úi-U || A» W .• q j-Üa. « A- i 


1140 DATA 22S,269,252,263,270,245.276,21 
5,306,203,318.173,294,178,324,149,318,13 
7,354,143,360,113 

1150 DATA 324,33,354,77,330,53,282,61,25 
3,47,234,53,216,35,174,23,165,24,210,71, 
246,71,253,95,234,33 

1160 DATA 204,95,198,107,216,113,216,137 
,198,131,216,155,252,155,240,173,246,191 
,234,191,222,209 

1170 DATA 234,227,204,215,192,227,204,24 
5,193,263,1SO,239,168,245,180,287,162,28 
1,180,317,168,341,192,347,130,365,193,35 
9,192.371 
1180 REM IRLANDA 


1190 

DATA 

142,241,17: 

7, 160 

', 187 

, 172, 139, 16' 

53,30 

L 80, 

130,100,157 

00, 12 

!0,240,142,241 

120)0 

REM 

ISLA DE MAN 

1210 

DATA 

192,181,20 

1 

1220 

REM 

ANGLESEY 

1230 

DATA 

206,157,20 

7 

1240 

REM 

ISLA DE WRH 

1250 

DATA 

286,55,280 

6,55 

1260 

REM 

CIUDADES 

1270 

DATA 

MANCHESTER 

ESTER 

■ II 


1280 

DATA 

CHESTER, 25: 

1290 

DAT A 

LEEDS,282, 

1300 

DATA 

HULL, 308, 1¡ 

1310 

DATA 

LIVERPOOL,: 

1320 

DATA 

BIRMINGAM, : 

DS" 

1330 

DATA 

LONDRES, 31: 

1340) 

DATA 

BRIST0L, 26« 

1350 

DATA 

CARDIF,244 

1360 

DATA 

CAMBRIDGE,: 


06, 15 
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IRE" 

1 370 DATA GLASGOW,216,261,"STRATHCLYDE" 

1380 DATA EDIMBURGO,238,261,"LOTHIAN" 

1390 DATA ABERDEEN,250,315,"GRAMRIAN" 

1400 DATA NEWCASTLE,266,223,"NORTHUMBERL 
AND" 

1410 DATA BELFAST,170,200,"ARMAGH" 

1420 DATA DUBLI. N, 160, 160, " EI RE " 

1430 REM LIMPIAR LA PARTE DERECHA DE LA 
PANTALLA 


1440 

FOR Q= 

1 TO 24 


1465 

Sí=STRINGí(7,32) 


1470 

IF Q=1 

THEN LOCATE 20,1:PRINT 

Sí 

1480 

IF Q~-7 

THEN LOCATE 20,7:PRINT 

Sí 

1482 

IF Q~6 

THEN LOCATE 20,6:PRINT 

Sí 

1483 

IF 0=9 

THEN LOCATE 20,9:PRINT 

Sí 

1485 

IF Q=3 

THEN LOCATE 20,3:PRINT 

Sí 

1486 

IF Q=8 

THEN LOCATE 20,8:PRINT 

Sí 

1487 

LOCATE 

25,Q:PRINT SPC < 16 ) s NEXT 0 

1490 

RETURN 



1500 

FOR T~ 

1 TO 3000:NEXT T:RETURN 


4990 

REM >> 

»>» SIN INTENTOS <«« 


5000 

GOSUB 

1440 


5005 

LOCATE 

■~wnr “T 
¿1U n O 


5010 

PRINT 

"LA CIUDAD ES" 


5015 

LOCATE 

21,5 


5020 

PRINT 

m 


5025 

LOCATE 

25, 10 


5030 

PRINT 

"LA COMARCA ES" 


5035 

LOCATE 

21,12 


5040 

PRINT 

coí 


5045 

GOSUB 

1500 


5050 

GOSUB 

1440 


5055 

LOCATE 

21,5:PRINT SPC(6) 


5060 

LOCATE 

21,12:PRINT SPC(6) 


5065 

GOTO 460 
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Editor de caracteres 



Diseñe su monstruo 

Construir caracteres puede ser tan divertido como jugar. Este pro¬ 
grama permite definir con facilidad 32 de los caracteres del Alus¬ 
trad y luego unirlos para formar dibujos más complejos. 

En primer lugar se muestran los caracteres contenidos en el 
ordenador. Luego tendrá la oportunidad de adaptarlos, cambiarlos 
o crear los suyos propios. Se puede tomar nota de la definición de 
estos y luego usarlos en sus propios programas utilizando el co¬ 
mando "Symbol". Pueden cargarse en una cinta conjuntos com¬ 
pletos de caracteres y así ir formando una biblioteca de caracteres. 

En este libro algunos programas utilizan caracteres propios del 
Amstrad y otros han sido específicamente creados. Con este pro¬ 
grama se puede mejorar el diseño de nuestros modelos sustan¬ 
cialmente. ¡Quizá no quiera dejar vivo ni uno ni otro! 


Debido a la riqueza de posibilidades de este editor, puede ser 
que le lleve algo de tiempo aprender a manejarlo. Aquí tiene una 
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lista de los comandos posibles que le puede servir durante su 
aprendizaje. 


Guía de referencia del constructor de caracteres 

El programa dibuja una cuadrícula y toma el primer carácter. Us¬ 
ted podrá editarlo, borrarlo o elegir una de las siguientes opciones 
pulsando las letras iniciales: 

Borrar: Borra la cuadrícula. 

Tomar: Pregunta por el número de un carácter. Cuando se haya 
introducido el último dígito, el carácter aparecerá en la cuadrícu¬ 
la. Entonces lo puede editar, cambiar... 

Editar: Sitúa el cursor en el extremo superior izquierdo de la 
cuadrícula. Con las flechas o el «joystick» podrá moverlo, y con el 
botón "COPY" poner o quitar un punto. Cuando acabe pulse "En- 
ter" y luego el número de carácter asociado a éste. 

Números: Pregunta por el número al cual se asignará este ca¬ 
rácter. Necesita ocho números, uno para cada línea de la cuadrí¬ 
cula comenzando por la parte superior. Con ella, la imagen se ge¬ 
nera directamente. Pulse "Enter" al finalizar su asignación. 

Reflejo: Pregunta por el número de un carácter. Usted podrá po¬ 
nerlo boca abajo o bien cambiar la parte derecha por la izquierda. 
La transformación se presenta en pantalla. Para guardarlo selec¬ 
cione "E" seguido de "Enter" y del número de asignación. 

Vertical (movimiento): Pregunta si arriba o abajo (A, B) y mue¬ 
ve el carácter una fila hacia arriba o hacia abajo. 

Horizontal (movimiento): Igual que el anterior (V) pero con iz¬ 
quierda y derecha. 

Intercambiar (cambio en diagonal): Pide dos caracteres y cam¬ 
bia entre ellos sus números de asignación. 

Construir: Borra la cuadrícula y deja una zona de 14 * 10 ca¬ 
racteres libre para que usted pruebe cómo quedan al unirlos. Se 
le pregunta por el número de carácter para que lo posicione don¬ 
de desee con el cursor o con el «joystick». Con el botón "r0PY" 
lo deja donde quiera. Pulsando la tecla espaciadora sin interrup¬ 
ción y, a continuación, otro número y "Enter", podrá posicionar un 
segundo carácter... Para salir de esta opción pulse "Enter". 



176 Juegos sensacionales para AMSTRAD 


Save: Le pregunta por el nombre de un fichero. Pulse "PLAY"y 
"RECORD". Al pulsar "Enter" grabará en cinta su conjunto de 
caracteres. 

Load: Le pregunta el nombré del fichero de caracteres. Pulse 
"PLAY" y "Enter" y éste se cargará en el ordenador. 

Nota: En este programa se ha inutilizado la tecla "Escape" para 
evitar posibles pérdidas de datos. Desconecte para finalizar. 

1 REM «< EDITOR DE CARACTERES »> 

2 REM 

200 CALL &BB03 

500 SPEED WRITE 1 

1OOO GüSUB 21OOO 

1010 GOSUB 20000 

1020 CHAR-1:GOSUB 22000 

1050 MEMORY 34995 

5010 REM <•<« BUCLE PRINCIPAL >>>> 

5030 A$= INKEY*: A$=LJPPER$ (A$) 

5040 IF A$="" THEN GOTO 5030 
5050 IF A$="B" THEN GOSUB 10000 
5060 IF A$~"T" THEN GOSUB 11000 
5070 IF A$="E" THEN GOSUB 12000 
5080 IF A$--"N" THEN GOSUB 13000 
5090 IF A$="R" THEN GOSUB 14000 
5100 IF AS="V" THEN GOSUB 15000 
5110 IF A*="H" THEN GOSUB 16000 
5120 IF A9>=" I" THEN GOSUB 17000 
5130 IF A$="S" THEN GOSUB 18000 
5140 IF A*="L" THEN GOSUB 19000 
5150 IF A$="C" THEN GOSUB 19500 
5170 GOTO 5030 

9980 REM <<<< BORRAR CELDILLA >>» 

10000 F'RINT CHR$ (23) ; CHR$ (O) ; 

10040 Y=398 
10045 B*=SPACE*<15> 

10050 FOR N=1 TO 10 
10060 PLOT 382,Y,O 
10070 PRINT #1,B$ 

10080 Y=Y—16 

10090 NEXT N 

10100 GOSUB 25000 

10110 PRINT CHR$(23);CHR$(1>; 

10120 RETURN 

10980 REM <<<< SACAR CARACTER >>>> 
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11000 GOSUB 10000 
11010 60S U B 2 4 O O O 
11020 GOSUB 22000 
1.1060 RETURN 

11980 REM <<<< EDITAR CELDILLA »» 

12000 X 1: Y~ 1 

12050 PRINT CHR*(23) ;CHRS (1>; 

12060 PLOT 382,382,3 

1210 O X 1 =366+ X * 161 Y1 =398Y * 16 

12110 NOVE X1,Y1: PRINT #1,CHR$(159); 

12120 GOSUB 29000 

12130 IF LE==1 AND X>1 THEN X=X-1 

12140 IF RI = 1 AND X<8 THEN X=X + 1 

12150 IF UP=1 AND Y>1 THEN Y=Y-1 

12160 IF D0~1 AND Y<8 THEN Y-Y+i 

12170 NOVE X1,Y1:PRI NT # 1,CHR*<159); 

12180 IF Q=1 THEN GOTO 12300 

12190 IF FI~1 THEN NOVE XI f YlSPRINT #1,0 

HRi$ (143) s 

12260 GOTO 12100 

12290 REM <«< ACABAR >»> 

12300 GOSUB 24000 
12310 8=374 
12320 FOR N=1 TO 8 
12330 A~390 
12340 X*=" 

12350 FOR M=1 TO 8 

12360 IF TEST (A,B)<>0 THEN MID$(X % ,M,1) 
=CHR$(143) 

12370 A=A+16 
12380 NEXT M 
12390 GOSUB 28000 
12400 D(CHAR,N)=X 
12410 8=8-16 
12420 NEXT N 
12430 GOSUB 14560 
12440 RETURN 

12980 REN <<<<< ENTRADA DE DATOS >>>>> 
13000 GOSUB 24000 
13040 FOR N=1 TO 8 
13050 CL.S #2 

13060 PRINT #2,"VALOR ";N 
13070 INPLJT #2, VA 

13090 IF VACO OR VA>255 THEN GOTO 13060 
13100 D(CHAR,N)-VA 



178 Juegos sensacionales para AMSTRAD 


13110 NEXT N 
13160 CLS #2 
13170 GQSUB 14560 
13180 RETURN 

13980 REM <«< ESPEJO >>>> 

14 O O O G O S Ll B 2 4 O O O 
14050 PRINT #2,"(V)ERT/(H)ORIZ" 

14060 B$=INKEYf:B$=UPPER$(B$) 

14070 IF B$="V" THEN CLS #2:GOTO 14500 
14080 IF THEN CLS #2;GOTO 14100 

14090 GOTO 14060 

14099 REM <<<<< HORIZONTAL >>>>> 

14100 FOR N=1 TO S 

1411O X“D(CHAR.N):GOSUB 23000 
14120 Y $ ="OOOOOOOO'' 

14130 FOR M~1 TO 8 
14140 MID$(Y*,M, 1)~M1D*(X$,9-M, 1) 

14150 NEXT M 

14160 X $=Y*:GOSUB 29000:D(CHAR,N)~X 
14170 NEXT N 
14180 GOTO 14560 
14490 REM <<<< < VERTI CAL >)> > > 

14500 FOR N=1 TO 8:F(N)=D(CHAR,N):NEXT N 
14510 FOR N=S TO 1 STEP -1 
14520 D(CHAR,N)=F(9-N) 

14530 NEXT N 

14560 X =128:GOSUB 26000 

14570 GOSUB 27000 

14580 GOSUB 10000 

14 5 ? O G O S U B 2 2 O O O 

14 6 O O X=12tí: G O S U B 2 6 O O O 
14610 RETURN 

14980 REM <<< MOVIMIENTO VERTICAL »> 

15000 GOSUB 24000:PRINT #2,"<A)RRIBA/A(B 
> AJO" ; 

15 O 4 O B $ = IN K E Y %: B $=U P p E R $ (B f ) 

15050 IF B$="A" THEN CLS #2: GOTO 15.120 
15060 IF B*="B" THEN CLS #2:GOTO 15090 
15O7O GOTO 1504O 
15080 REM <<<<< ABAJO >>>>> 

15090 FOR M =1 TO 7:GOSUB 15130:NEXT M 

15100 GOTO 15210 

15110 REM <<<<< ARRIBA >>>>> 

15120 GOSUB 15130:GOTO 15210 
15130 FOR N-1 TO 8 
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15 i40 Fí N>=D(CHAR,N> 

15150 NEXT N 
15170 D(CHAR,8)=F <1) 

15130 FOR N=2 Tü 8:D(CHAR.N-1> =F(N):NEXT 
N 

15.190 RETURN 

15200 REM «<« FINAL >>>>> 

15210 GOSUB 14560 
15230 RETURN 

159S0 REM <<< MOVIMIENTO HORIZONTAL >>> 

1 ó O O O G O S U B 2 4 O O O 

16040 PRINT #2,"(I)ZDA/(D)CHA": 

16050 B*= INKEYÍ : B*=UPPER (B*) 

16060 IF I" THEN CLS #2:GOTO 16100 

16070 IF B*="D" THEN CLS #2:GOTO 16510 
16080 GOTO 16050 
16090 REM <«< IZQUIERDA >>» 

16100 FOR M =1 TO 7:GOSUB 16600:NEXT M 
16110 6 O S U E* 1456O 
16120 RETURN 

16500 REM <<<< DERECHA >>>> 

16510 GOSUB 16600:GOSUB 14560 
16520 RETURN 

16590 REM <<<< DIVIDIR >>>> 

16600 FOR N=1 TO 8 
16610 F (N) ==D (CHAR, N) 

16620 X =F(N):X“INT(X/2):IF X<>F<N)/2 THE 

N X=X+128 

16630 D(CHAR.N)=X 

16640 NEXT N 

.16650 RETURN 

16980 REM <<<< CAMBIAR »» 

17OC '<O GOSUB 24UUU 
17010 CHAR1“CHAR 
17050 GOSUB 240OO 
17070 FOR N=1 TO 8 
17080 F(N)=D(CHAR,N) 

17090 NEXT N 
17100 FOR N=1 TO 8 

17110 D (CHAR, N) =D (CHAR 1-, N) : D (CHAR 1, N) =F ( 
N) 

17120 NEXT N 
17130 GOSUB 14560 
17140 RETURN 

17980 REM <<<< SAVE >>>> 
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18000 PRINT #2,"NOMBRE " 

ISO10 INPUT #2,N$ 

18020 N* = "¡"+N$ 

18030 SAVE Nf-, B, 43776, 256 
18040 CLS #2 
18050 RETURN 

18980 REM <<<< LOAD »>> 

19000 X = 128: GOSIJB 26000 
19010 PRINT #2,"NOMBRE " 

19020 I NF'UT #2, N$: N$= ” ! " +NÍ 
19030 LOAD m 
19040 CLS #2 

19050 GOSUB 21060:GOSUB 27000 
19060 X=128:GOSUB 26000 
19070 GOSUB 10000:GOSUB 22000 
19080 RETURN 

19480 REM «< CONSTRUIR DIBUJO >>> 

19500 GOSUB 19850 

19540 GOSUB 24000:CH=CHAR+223 

19550 PRI NT CHR$(23) ;CHRf(1); 

19600 X=398:Y=3B2 

19610 MOVE X, Y:PRINT #1,CHR$(CH > ; 

19620 GOSUB 29 OOO 

19630 IF FI = 1 THEN MOVE X,Y:PRINT CHR$(2 
3) ; CHRf íO) ; : PR I NT # 1, " " ; : F'RI NT CHR$ (23) 

; CHR$ (1) ; 

19635 MOVE X,Y:PRINT #1,CHR$(CH) ; 

19640 IF Q r ~ 1 THEN GOTO 19700 

19650 IF EX = 1 THEN GOSUB 24000: CH=C,HAR+2 


19660 X=X+16*(LE=1 AND X>382)-16*(RI=1 A 
ND X<590) 

19670 Y=Y-16*(UP=1 AND Y<398)+16*(D0=1 A 
ND Y>254) 

19680 GOTO 19610 
19700 GOSUB 19850 
19710 GOSUB 10000 
19720 RETURN 

19840 REM <<<<<< CLS >>>>>> 

19850 PRINT CHR*(23);CHR$(O)::PAPER O 
19360 FOR N=1 TO 10 
19870 LOCATE 24,N 
19880 PRINT SF'C (15) 

19890 NEXT N 

19900 PRINT CHR*(23);CHRS (1) ; 
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19910 RETURN 

19980 REM <<<< PINTAR PANTALLA >>>> 

20000 INK 0,0:1NK 1,24:1NK 2,3:1NK 3,1S 
20010 PAPER OsMODE 1:BORDER O 
20020 PAPER 2:FOR N=1 TO 25 
20030 PRINT SPC(23):PRINT:NEXT N 
20035 TAG #1 

20040 PRINT CHR*(23);CHR*(1); 

20050 PLOT 0,398,3 

20060 PRINT #1,"No. ANT NUE No. ANT NUE" 

5 

20070 NOVE 0,332 

20080 PRINT #1,"-" 

•I 

20110 Y=358 

20120 FOR N=1 TO 16 

20130 NOVE O,Y:PRINT #1,223+N;CHR$ <223+N 
) ; 

20140 NOVE 190,Y:PRINT #1,239+N;CHR$(239 
+ N) ; 

20150 Y=Y-22 

20160 NEXT N 

20170 GOSUB 27000 

20180 X=128:GOSUB 26000 

20190 GOSLJB 25000 

20210 WINDOW #2,25,39,11,13 

20220 PAPER #2, 1:PEN #2,0:CLS #2- 

20240 RESTORE 20310:Y=130 

20250 FOR N=1 TO 11 

20260 READ N$:PLOT 382,Y,3:PRINT #1,LEFT 
$ <Nf,1); 

20270 PLOT 398,Y,1:PRINT #1,NID$(N$,2,LE 
N ( m ) ) ; 

20230 Y=Y-16 
20290 NEXT N 

20300 PRINT CHR$(23);CHRT<1);;RETURN 
20310 DATA Borrar , Tomar , Editar , Números, F; 
et1ejo,Vertical 

20320 DATA Horizontal,Intercambiar,Con5t 
ruir,Save,Load 

20980 REN'< << INICIALI ZAR VARIABLES > > > 
21000 DIN F(8) 

21010 DIN D(32,8) 

21050 SYMBOL AFTER 223 
21060 ADDR=43776 
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21070 FOR N=1 TO 32 
21080 FOR M=1 TO 8 
21090 D < N, M)=PEEK<ADDR) 

21100 ADDR=ADDR+1 
21110 NEXT M 
21120 NEXT N 

21130 ADDR=34899:GOSUB 29500 
21250 RETURN 

21980 REM <<< DIBUJAR CARACTER >>> 

22000 F'RINT CHR$ (23) ; CHR$ ( 1 ) ; 

22040 Y=382 

22050 FOR N=1 TO 8 

22070 X—D(CHAR,N):GOSUB 23000 

22080 PLOT 382,Y,3:PRINT #1,X*;X; 

22090 Y=Y—16 
22100 NEXT N 
22110 RETURN 

22980 REM <<<<<< X a Xf >>>>>> 

23000 X$=BIIM$ (X. 8) 

23040 FOR M=1 TO 8 

23050 IF MID$(X $,M,1)="O" THEN MID$(X$,M 
, 1 )=" " 

23060 IF M ID$ (X$,M, 1) = " 1 " THEN MIDfCXf, M 
, 1) =CHF;f (143) 

23070 NEXT M 
23080 RETURN 

23980 REM ««« INF'UT CHAR >>>>>> 

24000 PRINT #2,"CARACTER ? PRINT #2 
24010 N*="" 

24040 FOR N=1 TO 3 

24050 B*=INKEY*:IF B*<"0 H OR B*>"9" THEN 
GOTO 24050 

24060 PRINT #2,B$;:N*=N*+B* 

24070 NEXT N 
24075 CLS #2 
24080 CHAR=VAL(N$) 

24085 IF C.HARC224 OR CHAR>255 THEN GOTO 
24000 

24090 CHAR=CHAR—223 
24100 RETURN 

24980 REM «<« DIBUJAR CELDILLA >>>>> 
25000 PRINT CHRí(23);CHR$(3) ;:X =382:Y=38 

9 

25010 FOR N=1 TO 9:PLOT X,Y,1:DRAW X+127 
, Y 
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25020 Y-Y--16 
25030 NEXT N 

25050 FGR N=1 T0 9:PL0T X,Y,lsDRAW X,Y-1 
25 

25060 X=X+16 
25070 NEXT N 
25030 RET'JRN 

25980 REM <<<<< CARACTERES >>>>> 

26000 PRINT CHR* (23) ; CHRf ( 1 > s : Y=358: PL...OT 
0,0, 3 

26040 FGR N=1 TO 16 
26050 NOVE X, Y 

26060 PRINT #1," ";CHR$(223+N); :NOVE X +1 
SO, Y: PR I NT #1, " '■; CHR$ < 239+N) ; 

26030 NEXT N 
26090 RETURN 

26980 REM << DE MATRIZ A CARACTERES >> 

2 7 O O O A D D R=4 3776 

27040 FOR N=1 TO 32: FGR M=1 TO £; 

27050 POKE ADOR,D(N,M) 

27060 ADDR=ADDR+1 
27070 NEXT M:NEXT N 
27080 RETURN 

27980 REM <<<<< X$ a X >>>>> 

2 8 O O O R E S T Ü R E 2 3 O 9 O: X=O 

29040 FOR M=1 TO 3 

28050 READ Y:Wf-MI De i X $,M, 1) 

28060 IF W$<>" " TREN X=X+Y 
28070 NEXT M 
28080 RETURN 

28090 OATA 128.64,32,16,S,4,2,1 

2 9 O O O 1 0 r O ¡¡ Y~ 1 ~ O ¡¡ Ll P ~~ O • d 0 = O ¡¡ 4* i = í") ; 0 y: O ; Q — O 
29010 Pe“INKEY$:IF PS = "" THEN GOTO 29010 


2 P 0 

S=1 

2 0 

IF 

aso< pe > 

••• r O 

L_* 

0R ASC(Pe) 

“ 2 a 2 

THEN 1 

290 
i = í 

30 

IF 

ASC(pe) 

— o 

OR ASC(pe) 

= 243 

THEN r 

290 

u.p = 

40 

1 

IF 

a se (pe) 

= 11 

QR ASC(pe 

) =240 

THEN 

290 

dü= 

3 0 

1 

IF 

ASC (Pe) 

= 10 

1 OR ASC(pe 

) =241 

THEN 
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29060 

IF ASC (F'í) 

=88 OR ASC (F'f) =224 THEN 

■f i =1 
29070 

I.F ASC(PS) 

=13 THEN q=l 

29080 

IF ASC ( F'f ) 

=32 THEN e;-; = l 

29090 

RE7URM 


29480 


> F'OKE INKEYS > > > > > > > > > > 

29500 

c=INT(addr 

/256):ta=addr-256*c 

29510 

RESTORE 29580 

O per, 2 1") 

h 0R n=addr 

TO addr+13 

29530 

READ a:IF 

a=999 THEN a=b 

n o kt n 

7 „J *+ U 

IF a=9 CJ 8 THEN a=c 

29550 

F'OKE rp. a 


29560 

NEXT n 


29570 

RE-TURN 


29580 

DATA 0.62, 

=.(-) O O O OCIO ''OS 'l' 7 

29590 

DATA 187,2 

os 50 o O o OOP i 

V w 1 i{ «J v ii / q l w ii .1. 
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Editor de pantallas 



La paleta fosforescente 

Su Amstrad le ofrece un lienzo para que pinte sus obras de arte, 
aunque posiblemente nunca lleguen a venderse a un precio de mi¬ 
les de libras. 

En primer lugar, el programa le pide que seleccione un modo 
(0, 1 ó 2) y colores para el borde (0-26), para el papel (0-15) y para 
la tinta (1-15). Dispone de una lista con los númeroS''de los colo¬ 
res en la guía de referencia y en el apéndice 5 de este libro. El 
programa incluye una serie de colores para dibujar. (Cambie los 
"data" de las líneas 20110 y 20120 para alterar el repertorio). A 
continuación se le pide que titule su obra para grabarlo pos¬ 
teriormente. 

Tiene una última opción, se trata de una «ventana» de informa¬ 
ción en pantalla. En ella tendrá en cada instante las coordenadas 
(x,y) del pincel y le podrán servir para diseñar secuencias de di¬ 
bujos para incorporarlos en distintos programas. Así fue como di¬ 
bujamos el mapa de Gran Bretaña del capítulo anterior. 












186 Juegos sensacionales para AMSTRAD 


La ventana aparece en la parte superior o inferior de la panta¬ 
lla y se desplaza en caso de que intente ser «invadida» por el pin¬ 
cel, pero no borra el dibujo que esté bajo ella. 

Un lápiz indica dónde se dibujará la línea. Se controla con la 
flecha o con el «joystick». Con "COPY" se pasa de lápiz a goma de 
borrar y con ella se borrarán todas las líneas sobre las cuales pase. 
Si vuelve a pulsar "COPY" aparecerá una cruz. Esto significa que 
le está permitido mover el cursor sin que dibuje (lápiz levantado). 
Pulsando "COPY" de nuevo, volverá al modo normal. El cursor 
pasa de un Modo a otro pulsándolo alternativamente. 

Puede utilizr otro sistema; el "Auto line". Con el cursor en "mo¬ 
ver" colóquelo donde quiera empezar la línea. Pulsando la barra 
espaciadora el ordenador cargará esa posición. Mueva la cruz a la 
segunda posición y vuelva a teclear un espacio, inmediatamente 
se dibujará una recta entre los dos puntos. 

Con "Enter" puede cambiar el color de la tinta en cualquier mo¬ 
mento. El cursor le mostrará el color que está utilizando cada vez. 

Con las teclas "Shift+S" puede grabar el dibujo que tiene en 
pantalla (acuérdese de tener pulsado REC-PLAY). Con "Shift+L" y 
el botón de la grabadora en "PLAY" podrá cargar un dibujo en el 
ordenador. 


>A pesar de que puede llevar un tiempo dibujar con este siste¬ 
ma (dependiendo del modo elegido), crear «arte» así puede ser fran¬ 
camente divertido. 


1 REM >>>>>>>> EDITOR DE PANTALLA < 

2 REM 

500 SYMBOL 240.240.200,1£4,14£,79, 4 

P 


510 SYMBOL 2 4i,240,226,22S,152,24,3 
1 


520 SYMBOL 242.240,184,220 
, 10 

¿00 MEMORY 23699 
610 SPEED l'JRITE 1 
1000 GOSUB 21000 
1010 X=0:Y-399;DR=1s LI=0 
1020 HD=4:VD=2:TAG #3 
1030 IF M=1 THEN HD=2 
1040 IF M=2 THEN HD=i 
1100 GOSUB 28000 


r o i i o 

•w n i- 4. .• n 


C* q Lu ij q 


nr¡ 4 n~7 
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11 40 

IF Y<5 

0 THEN F 

'0=395 ELSE F'0=20 

1150 

l'J* ~ 11 X " 

C2 T P‘ ¿fc i y 

4. " V * > .J. C; J p; A. ¡ y > 4 " TJ f-J T p¿ 

"+OT&*(PE) 



1155 

PRI NT 

CHPÍ(23) 

i CHR* (1) ; 

1 160 

IF INF 

“1 THEN 

NOVE 0, F'O: PR I NT #3. W* 

1 200 

PR I NT 

¡ 2 HRf (23 > 

:CHR* (1): 

1210 

PLOT X 

_ V p.C 


1220 

PR INT 

#2. CHF:* < 

240+DR): 

12 3 o 

PR I NT 

CHR*(23) 

; CHRS(DR); 


1240 IF DR-2 THEN KCNPAP ELSE 
1250 F'LOT X, Y, PE 
1260 PLÜT X,Y,KO 


::0~PE 


1370 

PR I NT 

CHF.'f (23 

> : CHR* 

( 1 ) 


13ao 

PLOT X 

, Y, PE 




1390 

PRINT 

#2. CHF;$ 

(240■+•D 

P’t - 


1400 

F'RINT 

r-uR* (23 

);CHR* 

(DR 


1440 

pp T K¡T 

CHR$<23 

) . Qp)p;& 

< 1) 

n 

1450 

IF INF 

=1 THEN 

MOVE 

0 , p 

0 • p F 

n 

.1.460 

IF SA’v 

=1 THEN 

GOSUP 

13 


1470 

IP ¡_Q- 

1 THEN 

SOSUE 

135 

jo 

1 4 SO 

IF LI - 

l THEN 

GOSUE 

230 

o o 

1500 

GOTO 1 

100 




j 2 o p f 

REM 

<<< SAV 

E >>>::• 



1 sooc 

0 ALI¬ 

23700 




j so 1 c 

SA VE 

N*„ B, ?<6 

AEO-, 53 

FFF 


1302C 

RETLJF 

N 




.1. S4SC 

REM : 

<« LOA 

D >>>> 



1S50C 

LOAD 

ii | ii 




1851C 

CALL 

23715 





INT #3.WÍ 


j 0520 
1 9930 
20000 
20010 
20020 
20030 
200-10 
20050 


RETURN 

REM < << ■: INICIALIZACICN 
MDDE 1:PAPER OsPEN 1 
INPLJT "MODO " ; M 
IF M=0 THEN 00“15:GOTO ' 


IF M“ 1 THEN CO- 
IF M~2 THEN CQ- 
GOTO 20010 


i 


GOTO 

GOTO 


; o i 

O ¿ 
>0 : 


) O 


20060 RESTORE 20110 
20070 FOR N=0 TD 00 
2OOSO READ A 
20090 INK N,A 
20100 NEXT N 
20110 DATA O, 18,24,2,6 
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20140 INFUT "BORDE ";BO 

20150 IF BO10 OR B0>27 THEN GOTO 20130 

20160 BOEDER BO 

20170 CLS 

20120 INFUT "PAPEL ";RAF 

20190 IF' PftPCO OR PAPM5 THEN GOTO 20170 
20200 PAPER PAP 
20210 CLS 

20220 INF’UT "TINTA INICIAL "; PE 
20230 IF PETO OF; PE>00 THEN GOTO 20210 
20240 PEN F'E 
20250 CLS 

20260 IMF'UT "NOMBRE PARA ’SAVE’ "; Mí 
20270 Nf-=" ! "+N$ 

20220 CLS 

20290 INFUT "VENTANA DE DATOS ";Af 
20300 INF=0 

20310 IF LEFTÍ < Aí , 1)="S " OF: LEFTí (Aí , 1) = 
"s" THEN INF=1 
20340 MODE M 
20350 RETURN 

20980 REM <«< EMPEZAR >>>> 

21 OOO GOSUB 3OOOO 

21010 ADDR-23729:GOSUB 29500 

21020 GOSUB 20000 

21030 TAG #2 

21100 RETURN 

23000 SOUND 1.200,10,15 

23010 IF FLAG-1 THEN GOTO 23050 

23020 FLAG=1:X1=X:Y1=Y:DR=1 

23030 TD=HD: HD=HD*3: VD=6 

23040 RETURN 

23050 FLAG=0:HD=TD:VD=2 

23060 F’RINT CHR* (23) ; CHR« (O) ; 

23070 PLOT X,Y,PE:DRAW X1,Y1 
23080 PRINT CHR* (23) ; CHR'f (1) ; 

23090 RETURN 

27930 REM <<<< MOVIMIENTO >>>> 

2 S O O O GOSUB 29 O O O: L. I “O: S A V=O: L O=O 
28010 IF LE~1 AND X>0 THEN X=X-HD 
28020 IF F;I~ 1 AND X<639 THEN X = X+HD 
28030 IF UP-1 AND Y<399 THEN Y=Y+VD 
28040 IF DO-1 AND Y>0 THEN Y=Y-VD 
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2*3050 
n C' f m \ 

IF 

FI -1 THEN 

DR=DF:+1:IF DF:=3 

THEN 

29060 

PR 

I NT CHRí(23 

0;CHRÍ(DR>: 


2 SO 70 
PE~0 

IF 

Q~1 THEN F 

■E=PE+1:IF PE- 16 

THEN 

2 SO SO 

IF 

E X — 1 THEN 

LI = 1 


2 SO 90 

IF 

A=67 THEN 

CL.S 


28100 

IF 

A=83 THEN 

SAV=1 


2 SI 10 

IF 

A-76 THEN 

LO” 1 


2 S120 

RE 

TURN 




29980 REM «« POKE B/MOVE 

30000 RES! ORE 3 O O 6 O 

30010 FDR N=23700 TO 23726 

30020 READ A 

30030 POKE N.A 

30040 NEXT N 

30050 RETURN 


30060 DATA 
30070 DATA 
30080 DATA 
30090 DATA 


33,0,192,17,224,106 
1,255,63,237,176,201,0,O,O 
33,224,106,17,0,192 
1,255,63,237,176,20.1 


Ahora una con ’MERGE' la subrutina de 
'entrada de caracteres’. 




27 

Monitor 



Cirugía en la R.A.M. 

Esta utilidad le permitirá meterse de lleno en la R.A.M. e investi¬ 
garla^ fondo. Pueden analizarse las rutinas en código máquina re¬ 
sidentes en R.O.M. o la estructura de cualquier programa en 
R.A.M. Los contenidos de la memoria pueden ser modificados, car¬ 
gados o grabados. 


Resumen de instrucciones 

(V) Visualizar la memoria. El ordenador le pedirá las posicio¬ 
nes de la celda inicial y final a analizar (en decimal). 

Aparecerá en pantalla el contenido de sus direcciones de me¬ 
moria en bloques de diez. Con la tecla "Espacio" pasa al siguiente 
bloque. Se pueden leer las zonas de texto en la tabla de caracte¬ 
res ASCII. 

(C) Compruebe la suma. Pide las direcciones inicial y final y ha¬ 
lla el total de los valores de esas posiciones en decimal (direccio- 
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nes de comienzo y final incluidas). Es muy útil para comprobar si 
está bien introducido un listado que incluya un "chequeo" por 
suma al final. 

(M) Modifica memoria. De nuevo se le piden las direcciones ini¬ 
cial y final. Aparece en pantalla el contenido de la primera celda. 
Si pulsa "Enter" lo deja tal cual, si pulsa un número y "Enter" 
este será el nuevo valor de esa posición. Si teclea un número no 
admisible la máquina se lo advertirá y no se producirá ningún 
cambio. 

A continuación se visualiza el contenido de la siguiente posi¬ 
ción de memoria. ¡Tenga cuidado, algunos cambios pueden tener 
resultados catastróficos! 

(S) Grabar. Le pide las direcciones inicial y final y el nombre 
del fichero. Pulse "Enter" para empezar a grabar y recuerde, "REC- 
PLAY" tiene que estar pulsado. 

(L) Cargar. Pulsando "L" a continuación de "PLAY" cargará en 
el ordenador el primer fichero que encuentre. 

(Q) Salir. Con "Shift + Q" se puede salir en cualquier momento 
de cualquier opción. 


3, 

re; 

M 


MONI 

TOE >>>> 




2 

RE: 

M 







5 

00 

ME 

MOR Y 

3500 





nr; 

10 

SP 

EED WRITE 

1 





000 

G 

OSUB 

2000 

Q 




3. 

500 

LOCATE 

# 1 . 

1,1 SPRINT # 1„ 

"PUL 

SE 

SU OP 

c 

ION 


ll 






1 

510 

í"l 


EY$ i 

a$=üpper$< m) 




i 

5 5 o 

I 

F AS» 

» X 1 " 

THEN GQSUB 21 

000 



1 

530 

T 

F 

" M" 

THEN 50SUB 22 

ooo 



•1 

4 . 

540 

I 

F A$ = 

" C " 

THEN GOSUB 23 

000 



1 

550 

T 

j. 

F A$ = 

ii C2 ii 

THEN GOSUB 24 

000 



1 

560 

G 

■OTG .1 

500 





1 

oqo 

0 

REM < 


PANTALLA >>>> 





000 

0 

INK 0 

, 0 : I 

NK 1.26:INK 2 

. 1 E3: 

INK 

"T 

'•*1 

00 i 

0 

MODE 

1 





•~j 

002 

0 

WINDQ 

iW #1 

,2,3?, 420 




'"1 

:003 

Q 

PAPER 

3: P 

'EN 2: BORDEE 0 

: CLS 




004 

0 

PAPER 

#1, 

OsPEN #1„1s CL 

S #1 




:005 

0 

PEI NT 

ll 

MONITOR 

DE 

COE 

yr 

:— i 
—i 

\£\ 
i—i 
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2 O O6O P RI NT M 


20070 
2' O O P O 
ÜRIA " 

MA ” 

20100 
20200 
20930 


L 0 C A T E 

2,22:PRINT ” 

(V)ER MEMORIA" 

LíJ'wH i E 

2,24: F'RINT 11 

<M)ODIF.[CAR MEM 

LOCATE 

23.22:PRINT 

"(C)OMPROEAR SU 

LOCATE 

RETURN 

23. 24: F'RINT 

"(S)AVE/LOAD" 


:<<<< VER 



210 O O 6 O S U B 2 6 O O O 
21070 CLS #1 

21080 ^ F'R I NT #1, " LOCAL 12ACION < HEX > 


21090 EOF; N=4 TO 13 


21100 

LOCATE #1, 

1,N: F'RINT #1, 

STA 

21110 

LOCATE #1, 

10, Ns F'RINT #1 

. "(";HEX$ (S 

TA) ; 

) 11 



21120 

LOCATE #1, 

24, N: F'RINT #1 

, F'EEK (STA) 

21 i 30 

LOCATE #1, 

31, Ni F'RINT #1 

,"(";HEXf(P 

EEK (S 

TA));"> ' 



21140 

L-GUaI Ei # 1 « 

18, N: F'RINT #1 

,CHR$(1):CH 

Fr$ (PEI 

EK(STA)); 



21145 

IF A$="Q" 

THEN GOTO 222 

30 

21150 

5TA=STA+1: 

IF STA=FIN+1 

THEN GOTO 2 

1200 




211 óO 

NEXT N 



21 170 

A4~INKEYT 



21175 

IF A$="0 M 

THEN GOTO 212 

20 

211 SO 

IF A$<>" " 

THEN GOTO 21 

170 

21 190 

GOTO 21070 



21200 

A$= INKEYÍ 



21 2 i 0 

IF Af<>" " 

THEN GOTO 21 

200 

21220 

CLS #1:RET 

URN 


21930 

REM <<<<<< 

< MODIFICAR 


22000 

GOSUB ¿ u { J 

Q 


22070 

CLS #1 



220SO 

F'RINT #1," 

LOCALIZACION 

(HEX) VA 

L.OR 

_ 


________ 


22090 FGF: N=4 TO 13 

22100 LOCATE #1,1,N: PRINT # 1 , STA 

22110 LOCATE #1,10,N:PRINT #1,"<";HEX$ íS 

TA) ; " ) " 
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22120 

LOCATE 

#i . 

*- "V <1 5 V -{ n 

PE I NT 

# 1, F'EEK (ST 

A) 

22130 

LOCATE 

#i . 

31 , N 




221 40 

Aí =INK 

EYi: 

IF Ai 

^ : i i i -r | 

HEN GOTO 22 

140 

22145 

IF A £ — 

"Q" 

THEN 

GOTO : 

22230 


22150 

IF Ai< 

1 ! Q M 

OR Ai 

ii O ** 

THEN GOTO 2 

216 

22 í 3? 

GOSUB 

22500 




22160 

STA=ST 

A4- i 2 

IF ST 

A-FIN 

+1 THEN 222 

10 

22170 

NEXT N 






22180 

AÍ=INK 

EY* 





22 i 90 

IF Ai< 

n i * 

THEN 

GOTO 

221 SO 


22200 

GOTO 2 

2070 





22210 

Aí=INK 

EYi 





22220 

IF Ai< 

\ ¡i * i 

THEN 

GOTO 

22210 


22230 

CLS #1 

ü RET 

URN 




22490 

REM * 

* * 

MGDIF 

ICACI 

ONES i * t 


22500 

Ni=" " s 

PRIN 

T #1, 

Ai; : N 

f-Ni+Ai 


22510 

GOSUB 

2260 

o 




22520 

IF Ai= 

CHRi 

(135 

THEN 

GOTO 22700 


22530 

GOTO 2 

r-iC i f ~ ) 





o?At'|A 

Ai~INK 

EYi 





22610 

IF Ai- 

M II 

HEN G 

OTO 2 

2600 


o™ a— LJ .i_ 

IF (Ai 

11 1! 

OR Ai > " 9 " 

5 AND Ai<>CHRÍ 

(13) 

THEN GOTO 2 

2600 




22630 

1F Ai- 

CHRi 

(13) 

THEN 

RETURN 


22640 

NÍ=NÍ+ 

•Ai: P 

RINT 

#1 , Ai 



22650 

FETURN 





22700 

A=VAL( 

Ni) : 

IF A< 

0 OR 

A>255 THEN 

SOU 

ND 2, 

300, 25. 

15: R 

:ETUF;N 




22710 

F’OKE ( 

STA) , A 

/ x~ 0 

LOCATE 

# 1.24, N:PF;INT #1, A; " 

'■“> r> ~7 y (~) 

RETURN 


22980 

REM << 

<< COMPROBAR SUMA >>>> 

23000 

GOSUB 

26000 

23010 

TOT “0 


23020 

FOR N= 

STA TO FIN 

23030 

LOCATE 

#1 ,10,10 

23040 

PRINT 

# 1 , N 

23050 

TOT-TO 

T+PEEK(N) 

23060 

NEXT N 


23070 

SOUND 

1,300,25,15 

23030 

SOUND 

1 ,200, 25,15 

23090 

SOUND 

1,100,25,15 

23120 

LOCATE 

#1,10,12 

23130 

PRINT 

#1,"COMPROBACI0N=";TOT; 
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23140 Ai“INKEYi 

23150 IF AíO" " THEN GOTO 23140 
231Ó0 CLS #1 
23170 RETUEN 

23980 REM <<<<< SAVE/LOAD >>>>> 

24000 PRINT #1. " . (S)AVE G (L)OAD ?" 

24010 Ai=INKEYi:Ai~UPPERi(Ai) 

24020 IF" AÍ="S" THEN GOTO 24050 
24030 IF AÍ="L" THEN GOTO 24500 
24040 GOTO 24010 
24050 CLS #1 
24070 SOSUB 26000 

24080 IF STAOOOO THEN GOTO 24050 
24090 CLS #1:1 NF'UT #1, "NOMBRE DEL FICHER 
O "s Ni 

24100 Ni=" ! "+NÍ 

241 iO SAVE Ni,B,STA,FIN-STA+1 

24120 CLS #1 

24130 RETURN 

24500 CLS #1 

24510 CLS tt 1: INF'UT #1, "NOMBRE DEL FICHER 
O " ; Ni 

24520 Ni="I"+N« 

24530 LOAD Ni 
24540 CLS #1 
24550 RETURN 

25980 REM ««< INF'UT >>>>> 

26000 CLS #1 

26010 F'R I NT # 1, "INICIO : " ; 

26020 GOSUB 30000 

26030 IF ADDRCO OR ADDR>65535 THEN 26000 

26040 STA==ADDR 

26050 SOUND 2,300,25,15 

26060 CLS #1:PRINT #1," FINAL :" 

26070 G O S U B 3 OO OO 

26090 IF ADDR<O GR ADDR>65535 THEN 26060 
26090 FIN=ADDR 
26100 CLS #1 

26110 IF STA>=FIN THEN GOTO 26000 
26150 RETURN 

29930 REM <«<< INF'UT ADDR >>>>> 

30000 Ni="" 

30010 Ai“INKEYi 

30020 IF (Ai<"O" OR Ai>"9") AND Ai<>CHRÍ 
(13) AND AÍOCHRÍ(127) THEN GOTO 30010 
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30025 IF m “CHRÍ (1.27) AND LEN5NIXÍ THEN 
GOTO 30010 

30030 IF A$=CHRf(127) THEN N*=LEFTÍ<N*,L 
E N (N $) •-1) : G 0 T 0 3 O O 5 O 
30040 N$=N$-¡-At 

30050 SOUND 2,150,5,15:LOCATE #1,10,1 
30060 F'RINT # .1. m ; " " 

30070 IF A$=CHR*<13> THEN GOTO 30090 
3 O O 3 O G O T O 3 O 010 
3 O O 9 O A D D R = V A L (N i ) 

30100 RETLJRN 




Consejos finales 


Al escribir este libro se procuró conseguir un nivel de calidad en 
los juegos que estuviera por encima de la media. 

Naturalmente, esto requiere que los programas sean más lar¬ 
gos y que el cuidado al teclearlos sea mayor. Llegará un momento 
en que usted tendrá que depurar sus programas y será entonces 
cuando habrá llegado su oportunidad de comprender cómo y por 
qué funcionan los programas. 

Para ayudarle en esta tarea hemos confeccionado esta guía de 
«depuración». 


Generalidades 

1. Procure tener a su lado mientras teclea a alguien que vaya 
comprobando a su vez y en voz alta las entradas. 

2. Si está trabajando con pantalla de 40 columnas, el listado 
ha de coincidir línea por línea con el de la pantalla. 

3. No confunda la I con el 1 y viceversa. 

4. No confunda "a" minúscula con "A" mayúscula. 

5. Esté al tanto de en lugar de 

6. Deje los espacios justos y compruébelo con las líneas su¬ 
perior e inferior. 

7. Compruebe dos veces los números de línea. No confunda 
un número contenido en una línea con un número de comienzo de 
línea. 

8. Fíjese en los DATA. Es fácil saltarse algunos números. 
Cuente cuántas comas hay y contrástrelo con el listado. 

9. No se olvide de las comillas. 

10. ¿Está seguro de que hay un error? Relea las instrucciones 
de juego. La mayoría de las respuestas tienen que ir seguidas de 
la tecla "Enter". 
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Problemas específicos 

1. Con el fin de ahorrar espacio y tiempo, se ha utilizado con 
frecuencia el comando "MERGE" (para unir las rutinas de unos 
programas con otros). Familiarícese con esta técnica comenzando 
con un programa que sea sencillo. Aunque se presentarán proble¬ 
mas en la práctica de esta técnica, considerando los resultados ha¬ 
brá valido la pena. 

2. Una de las mayores fuentes de problemas es el introducir 
entradas erróneas. Por ejemplo, puede estropear un programa al 
teclear un número negativo cuando se le pide otra cosa. La ma¬ 
yoría de estos pequeños errores pueden preverse en el programa 
pero a costa de que sean mucho más largos sin demasiada justi¬ 
ficación. Al escribir estos programas se dio por sentado que el o 
los jugadores no iban a querer destruir el programa. Así pues, sólo 
están protegidos contra tontos de tercer grado. Si sus denodados 
esfuerzos están al alcance de tontos de primera clase debido a un 
entorno hostil, entonces ocúpese personalmente de tomar las me¬ 
didas de seguridad. 

3. Los programas pueden utilizarse en pantalla monocroma. 
Cambie los colores si lo desea una vez que haya grabado el pro¬ 
grama. El programa Mastermicro puede utilizar símbolos en vez 
de colores cuando la pantalla sea monocroma. 

4. Un buen ejercicio consiste en cargar los programas nada 
más enchufar el ordenador. Con ello se evitarán problemas si en 
el programa anterior se produjo algún desajuste en el interior del 
ordenador. 

5. Desgraciadamente la función "Random" resulta ser menos 
aleatoria de lo deseable. Hemos tratado de minimizar el problema 
pero, a pesar de ello, a veces, encontrará secuencias que se 
repiten. 


Depurando 

Si ninguno de los consejos anteriores resuelven el problema, en¬ 
tonces remánguese y pruebe con estos de propina. 

1. Si aparece un mensaje de error en una línea y al examinar¬ 
la parece estar bien, recuerde que el error puede estar en la línea 
que pasa información a esa línea y compruebe las líneas re¬ 
lacionadas. 
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2. A errores como "Out of range", "Improper argument", se 
les puede seguir la pista como se ha indicado anteriormente. Le 
ayudará teclear "PRINT A" o cualquiera que sea la variable utili¬ 
zada en esa línea. Esto debería aclararle el problema. 

3. ¡Partes que se ha olvidado teclear! Con la función TRON se 
puede seguir el orden en que se ejecutan las líneas del programa, 
delatando las subrutinas "traviesas" o algún problema parecido. 

4. Trabaje metódicamente. Vaya parte por parte. Pare el pro¬ 
grama en ciertos puntos con "END" o "STOP", o saque a pantalla 
los valores de ciertas variables con "PRINT" en la zona donde sos¬ 
peche que se encuentra el error. 

5. Inutilice partes del programa colocando un "REM" delante 
de ciertas líneas. 

6. Vuelva a teclear las líneas con problemas. Durante la con¬ 
fección del libro, algunos errores del tipo "Out of memory", sólo 
pudieron ser resueltos tecleando de nuevo una misma línea (apa¬ 
rentemente perfecta). 

7. Utilice las funciones "On error", "Erl" y "Err" como indica 
el manual de referencia. 

8. Váyase a la cama y duerma un poco. A veces lo que hoy no 
marcha, funciona al día siguiente. 



APENDICES 




Apéndice 1: Juego completo de caracteres del Amstrad 
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CARACTER CHR$ I CARACTER CHR$ I CARACTER CHR$ I CARACTER CHR$ 
















































Apéndice 2: Cuadrícula para la definición de caracteres 















































































Apéndice 3: Hoja de pantalla 


MODE 0 20 COLUMNAS x 25 FILAS 16 COLORES 
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CODIGO DE COLORES 


PEN 0 = 6 = 

1 = 7 = 

2 = 8 = 

3= 9 = 


5 = 


11 = 
12 = 

13 = 

14 = 

15 = 


Puede serle útil fotocopiar esta página para uso propio 
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Puede serle útil fotocopiar esta página para uso propio. 


















































































Apéndice 4: Mapa de memoria del Amstrad 






Apéndice 5: Tabla de colores del Amstrad 


COLOR 

0 NEGRO 

1 AZUL 

2 AZUL BRILLANTE 

3 ROJO 

4 GRANATE 

5 MALVA 

6 ROJO BRILLANTE 

7 PURPURA 

8 GRANATE BRILLANTE 

9 VERDE 

10 AZUL MARINO 

11 AZUL CELESTE 

12 AMARILLO 

13 BLANCO 


14 AZUL PALIDO 

15 NARANJA 

16 ROSA 

17 GRANATE PALIDO 

18 VERDE BRILLANTE 

19 VERDE MARINO 

20 AZUL MARINO 
BRILLANTE 

21 VERDE LIMON 

22 VERDE PALIDO 

23 AZUL MARINO 
PALIDO 

24 AMARILLO BRILLANTE 

25 AMARILLO PALIDO 

26 BLANCO BRILLANTE 



Apéndice 6: Comprobador Rápido de Sintaxis 

El manual del Amstrad está dividido en secciones, cada una tra¬ 
tando diferentes partes de la sintaxis de las instrucciones Basic. 
Sin embargo, a veces uno puede hacerse una ¡dea de qué instruc¬ 
ción necesita mirando esta lista. Las instrucciones están agrupa¬ 
das según ciertas características. Por ejemplo, para saber cómo 
operan las instrucciones de tipo «sonido», puede buscarlas en esta 
lista y luego dirigirse al manual de Amstrad. 


MATEMATICAS 

ABS 

AND 

ATN 

CINT 

COS 

CREAL 

DEF 

DEG 

EXP 

FIX 

FN 

INT 

LOG 

LOG 10 

MAX 

IN 

MOD 

NOT 

OR 

Pl 

RAD 

RANDOMIZE 

RND 

ROUND 

SGN 

SIN 

SOR 

TAN 

UNT 

XDR 

GRAFICOS 

CLG 

DRAW 


DRAWR 

MOVE 

MOVER 

ORIGIN 

PLOT 

PLOTR 

TAG 

TAGOFF 

TEST 

TESTR 

CONTROL 

AFTER 

CALL 

DI 

El 

ELSE 

END 

ERROR 

EVERY 

FOR 

GOSUB 

GOTO 

IF 

INKEY 

INKEY$ 

IMP 

JOY 

UNE INPUT 

NEXT 

ON 

ON BREAK 
ON ERROR GOTO 
OUT 
PEEK 


POKE 

REMAIN 

RETURN 

SPEEDINK 

SPEEDWRITE 

STEP 

STOP 

THEN 

TIME 

TO 

WAIT 

WEND 

WHILE 

WIDTH 

SONIDO 

ENT 

ENV 

ON SQ 

RELEASE 

SOUND 

SQ 

PROGRAMACION 

AUTO 

CLEAR 

CONT 

DATA 

DELETE 

DEFINT 

DEFREAL 

DEFSTR 

DIM 

EDIT 

ERASE 
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ERL 

CHAIN 

STRIN$ 

ERR 

CLOSEIN 

UPPER$ 

FRE 

CLOSEOUT 

VAL 

HIMEM 

EOF 


INPUT 

LOAD 

PANTALLA 

KEY 

MERGE 

BORDER 

KEYDEF 

OPENIN 

CLS 

LET 

OPENOUT 

INK 

LIST 

SAVE 

LOCATE 

MEMORY 


MODE 

NEW 

CADENAS 

PAPER 

READ 

ASC 

PEN 

REM 

BIN$ 

POS 

RENUM 

CHR$ 

PRINT 

RESTORE 

DEFSTR 

SPC 

RESUME 

HEX$ 

TAB 

RUN 

INSTR 

USING 

SYMBOL 

LEFT$ 

VPOS 

SYMBOL AFTER 

LEW 

WINDOW 

TROFF 

LOWERS 

WINDOW SWAP 

TRON 

MID$ 

XPOS 


RIGHT$ 

YPOS 

FICHEROS 

SPACE$ 

ZONE 

CAT 

STR$ 
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